… | … | ||
---|---|---|---|
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 |