| … | … | ||
|---|---|---|---|
| 28 | @ARGV = "." unless @ARGV; | 28 | @ARGV = "." unless @ARGV; |
| 29 | 29 | ||
| 30 | $opt_grep &&= qr{$opt_grep}s; | 30 | $opt_grep &&= qr{$opt_grep}s; |
| 31 | 31 | ||
| 32 | my ($n_dirs, $n_files, $n_stats) = (0, 0, 0); | 32 | my ($n_dirs, $n_files, $n_stats) = (0, 0, 0); |
| 33 | my $n_last; | ||
| 34 | my $n_start = Time::HiRes::time; | 33 | my ($n_last, $n_start) = (Time::HiRes::time) x 2; |
| 35 | 34 | ||
| 36 | sub printfn { | 35 | sub printfn { |
| 37 | my ($prefix, $files, $suffix) = @_; | 36 | my ($prefix, $files, $suffix) = @_; |
| 38 | 37 | ||
| 39 | if ($opt_grep) { | 38 | if ($opt_grep) { |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |