equal
deleted
inserted
replaced
39 open C, '<', $c or die "Can't open '<$c': $!\n"; |
39 open C, '<', $c or die "Can't open '<$c': $!\n"; |
40 my $skip = 1; |
40 my $skip = 1; |
41 while (<C>) { |
41 while (<C>) { |
42 no warnings qw(syntax); |
42 no warnings qw(syntax); |
43 if (/^files:\s*$/i) { $skip = 0; next; } |
43 if (/^files:\s*$/i) { $skip = 0; next; } |
|
44 use warnings; |
44 next if $skip; |
45 next if $skip; |
45 unless (/^ ([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ \n]+) *$/) { |
46 last unless (/^ ([^ ]+) +([^ ]+) +([^ ]+) +([^ ]+) +([^ \n]+) *$/); |
46 $skip = 1; |
|
47 next; |
|
48 } |
|
49 use warnings; |
|
50 $size{$5} = $2; |
47 $size{$5} = $2; |
51 $nfiles++; |
48 $nfiles++; |
52 } |
49 } |
53 close C; |
50 close C; |
54 warn "$ME: no files found in changes file.\n" unless $nfiles; |
51 warn "$ME: no files found in changes file.\n" unless $nfiles; |
64 verify_size "$incoming/$_" for keys %size; |
61 verify_size "$incoming/$_" for keys %size; |
65 |
62 |
66 my $done = 0; |
63 my $done = 0; |
67 do { |
64 do { |
68 |
65 |
69 warn scalar localtime; |
|
70 |
|
71 $inotify->poll; |
66 $inotify->poll; |
72 if (time > $exit_after) { |
67 if (time > $exit_after) { |
73 warn "$ME: file upload timed out.\n"; |
68 warn "$ME: file upload timed out.\n"; |
74 $done = 1; |
69 $done = 1; |
75 } |
70 } |