From e59a94d14d132d7d88d5a7dfb465b1a218f5840e Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 27 May 2018 18:43:16 -0400
Subject: sbosrcarch: tweak purge

---
 sbosrcarch | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'sbosrcarch')

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;
 }
-- 
cgit v1.2.3