Parent Directory | Revision Log | Patch
revision 260 by dpavlin, Mon Dec 12 20:59:55 2005 UTC | revision 261 by dpavlin, Mon Dec 12 21:11:17 2005 UTC | |
---|---|---|
# | Line 298 sub new_tar_part { | Line 298 sub new_tar_part { |
298 | } else { | } else { |
299 | print STDERR " [last]" if ($opts{v}); | print STDERR " [last]" if ($opts{v}); |
300 | move("${tar_path}", "${tar_path_final}"); | move("${tar_path}", "${tar_path_final}"); |
301 | ||
302 | # if this archive was single part, remove it | |
303 | foreach my $suffix (qw/.tar.gz .md5/) { | |
304 | my $path = $tar_path_final . $suffix; | |
305 | unlink $path if (-e $path); | |
306 | } | |
307 | } | } |
308 | ||
309 | $sth_inc_size->execute( | $sth_inc_size->execute( |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |