| OLD | NEW |
| 1 #!/usr/bin/perl -w | 1 #!/usr/bin/perl -wT |
| 2 | 2 |
| 3 use strict; | 3 use strict; |
| 4 | 4 |
| 5 use CGI; | 5 use CGI; |
| 6 use File::stat; | 6 use File::stat; |
| 7 | 7 |
| 8 use constant CHUNK_SIZE_BYTES => 256; | 8 use constant CHUNK_SIZE_BYTES => 256; |
| 9 | 9 |
| 10 my $query = new CGI; | 10 my $query = new CGI; |
| 11 my $filename = $query->param('name'); | 11 my $filename = $query->param('name'); |
| (...skipping 24 matching lines...) Expand all Loading... |
| 36 if ($total >= $filesize) { | 36 if ($total >= $filesize) { |
| 37 last; | 37 last; |
| 38 } | 38 } |
| 39 | 39 |
| 40 # Throttle if there is some. | 40 # Throttle if there is some. |
| 41 if ($chunkdelay > 0) { | 41 if ($chunkdelay > 0) { |
| 42 select(undef, undef, undef, $chunkdelay); | 42 select(undef, undef, undef, $chunkdelay); |
| 43 } | 43 } |
| 44 } | 44 } |
| 45 close(FILE); | 45 close(FILE); |
| OLD | NEW |