--- a/bin/waitfordeb	Thu Apr 19 21:19:11 2012 +0200
+++ b/bin/waitfordeb	Thu Apr 19 21:28:37 2012 +0200
@@ -41,12 +41,9 @@
 while (<C>) {
     no warnings qw(syntax);
     if (/^files:\s*$/i) { $skip = 0; next; }
+    use warnings;
     next if $skip;
-    unless (/^ ([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ \n]+) *$/) {
-        $skip = 1;
-        next;
-    }
-    use warnings;
+    last unless (/^ ([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ \n]+) *$/);
     $size{$5} = $2;
     $nfiles++;
 }
@@ -66,8 +63,6 @@
 my $done = 0;
 do {
 
-    warn scalar localtime;
-
     $inotify->poll;
     if (time > $exit_after) {
         warn "$ME: file upload timed out.\n";