# HG changeset patch
# User Matthias Förste foerste@schlittermann.de
# Date 1334863717 -7200
# Node ID 2552664b674a5f4c65bbded712259dbc69f459ca
# Parent  6d4d4ff0796e6f60176da8481a9d90d4754d7b28
[cosmetic]

diff -r 6d4d4ff0796e -r 2552664b674a bin/waitfordeb
--- 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";