From 2a6daf230e851869abd89675297275261ae498c1 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 3 Jun 2018 23:23:03 -0400
Subject: sbosrcarch purge_mode fix, wip

---
 sbosrcarch | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'sbosrcarch')

diff --git a/sbosrcarch b/sbosrcarch
index 84449e6..c6e3add 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1240,10 +1240,9 @@ sub purge_mode {
 	chdir($archivedir) or die "$archivedir: $!\n";
 	find({wanted => \&purge_pass_2_wanted, no_chdir => 1}, "by-name");
 
-	for(keys %keep_filenames) {
-		print "KEEP $_\n";
-	}
-	die "end of line";
+#	for(keys %keep_filenames) {
+#		print "KEEP $_\n";
+#	}
 
 	# pass 3
 	if($rebuild) {
@@ -1276,7 +1275,7 @@ sub purge_pass_2_wanted {
 	s,^\./,,; # remove leading ./
 	my (undef, $cat, $name, $file) = split /\//, $_;
 	return unless defined $file;
-	return if $keep_filenames{"$cat/$name/$file"};
+	return if $keep_filenames{"by-name/$cat/$name/$file"};
 
 	$purgebytes += -s $_;
 	$purgefiles++;
-- 
cgit v1.2.3