244 |
if ($fh) { |
if ($fh) { |
245 |
return if ($current_tar_size == 0); |
return if ($current_tar_size == 0); |
246 |
|
|
247 |
print STDERR " $part" if ($opts{v}); |
print STDERR " $part"; |
248 |
|
|
249 |
# |
# |
250 |
# Finish with two null 512 byte headers, |
# Finish with two null 512 byte headers, |
272 |
$items_in_part, |
$items_in_part, |
273 |
); |
); |
274 |
|
|
|
#$total_increment_size += int( ( $size + 1023 ) / 1024 ) * 1024; |
|
275 |
$total_increment_size += $size; |
$total_increment_size += $size; |
276 |
|
|
277 |
if ($arg->{close}) { |
if ($arg->{close}) { |
283 |
} |
} |
284 |
|
|
285 |
if ($part == 1) { |
if ($part == 1) { |
286 |
print STDERR " single"; |
print STDERR " single" if ($opts{v}); |
287 |
move("${tar_path}/1.tar.gz", "${tar_path_final}.tar.gz"); |
move("${tar_path}/1.tar.gz", "${tar_path_final}.tar.gz"); |
288 |
move("${tar_path}/1.md5", "${tar_path_final}.md5"); |
move("${tar_path}/1.md5", "${tar_path_final}.md5"); |
289 |
rmtree $tar_path or die "can't remove temporary dir $tar_path: $!"; |
rmtree $tar_path or die "can't remove temporary dir $tar_path: $!"; |
290 |
} else { |
} else { |
291 |
print STDERR " [last]"; |
print STDERR " [last]" if ($opts{v}); |
292 |
move("${tar_path}", "${tar_path_final}"); |
move("${tar_path}", "${tar_path_final}"); |
293 |
} |
} |
294 |
|
|