sbosrcarch: tweak purge

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;
 }