aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2018-05-27 18:43:16 -0400
committerB. Watson <yalhcru@gmail.com>2018-05-27 18:43:16 -0400
commite59a94d14d132d7d88d5a7dfb465b1a218f5840e (patch)
tree94cbca283347d7541abcb0c04f4df50ddcc8a292
parent09775f46d2f927a12476f3aed193b778744a2fbb (diff)
downloadsbostuff-e59a94d14d132d7d88d5a7dfb465b1a218f5840e.tar.gz
sbosrcarch: tweak purge
-rwxr-xr-xsbosrcarch3
1 files changed, 1 insertions, 2 deletions
diff --git a/sbosrcarch b/sbosrcarch
index 76672e4..944e5ba 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -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;
}