67 |
my $affected = 0; |
my $affected = 0; |
68 |
$t = time; |
$t = time; |
69 |
|
|
70 |
foreach my $pos ( $offset + 1 .. $input->size ) { |
foreach my $pos ( $offset + 1 .. $offset + $input->size ) { |
71 |
my $rec = $cache->{$pos} ||= $input->fetch_rec($pos); |
my $rec = $cache->{$pos} ||= $input->fetch_rec( $pos ); |
72 |
if ( ! $rec ) { |
if ( ! $rec ) { |
73 |
warn "END at $pos"; |
warn "END at $pos"; |
74 |
last; |
last; |
93 |
, "\n" |
, "\n" |
94 |
; |
; |
95 |
|
|
96 |
|
unlink "$path.last" if -e "$path.last"; |
97 |
|
rename $path, "$path.last"; |
98 |
write_file $path, $dump; |
write_file $path, $dump; |
99 |
report "save $path"; |
report "save $path"; |
100 |
} else { |
} else { |