diff options
-rwxr-xr-x | sbosrcarch | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1267,13 +1267,12 @@ sub purge_pass_2_wanted { return unless defined $file; return if $keep_filenames{$file}; - print "purge $_\n"; $purgebytes += -s $_; $purgefiles++; my $namepath = name_dir($cat, $name) . "$file"; my $md5path = md5_dir(md5sum_file($namepath)) . "$file"; - warn ";;; unlink $namepath $md5path\n"; + print "purge $namepath $md5path\n"; unlink $namepath; unlink $md5path; } |