equal
deleted
inserted
replaced
132 local $SIG{ALRM} = sub { |
132 local $SIG{ALRM} = sub { |
133 my $speed = ($stats{written} + $stats{skipped}) / (time - $^T + 1); |
133 my $speed = ($stats{written} + $stats{skipped}) / (time - $^T + 1); |
134 say sprintf |
134 say sprintf |
135 "# %*s done %5.1f%% | %24s (%*d of $stats{todo}, written %*d, skipped %*d)", |
135 "# %*s done %5.1f%% | %24s (%*d of $stats{todo}, written %*d, skipped %*d)", |
136 (sort { $a <=> $b } map { length basename $_ } @ARGV)[-1] => |
136 (sort { $a <=> $b } map { length basename $_ } @ARGV)[-1] => |
137 basename($src), |
137 basename($name), |
138 100 * (($stats{written} + $stats{skipped}) / $stats{todo}), |
138 100 * (($stats{written} + $stats{skipped}) / $stats{todo}), |
139 ($speed ? (scalar localtime($^T + $stats{todo} / $speed)) : ""), |
139 ($speed ? (scalar localtime($^T + $stats{todo} / $speed)) : ""), |
140 length($stats{todo}) => $stats{written} + $stats{skipped}, |
140 length($stats{todo}) => $stats{written} + $stats{skipped}, |
141 length($stats{todo}) => $stats{written}, |
141 length($stats{todo}) => $stats{written}, |
142 length($stats{todo}) => $stats{skipped}; |
142 length($stats{todo}) => $stats{skipped}; |