sbosrcarch purge_mode fix, wip

1 files changed, 6 insertions, 1 deletions

diff --git a/sbosrcarch b/sbosrcarch
index bfa91b5..07e02c6 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1240,6 +1240,11 @@ sub purge_mode {
 	chdir($archivedir) or die "$archivedir: $!\n";
 	find({wanted => \&purge_pass_2_wanted, no_chdir => 1}, "by-name");
 
+	for(keys %keep_filenames) {
+		warn $_;
+	}
+	die "end of line";
+
 	# pass 3
 	if($rebuild) {
 		rmtree("by-md5");
@@ -1271,7 +1276,7 @@ sub purge_pass_2_wanted {
 	s,^\./,,; # remove leading ./
 	my (undef, $cat, $name, $file) = split /\//, $_;
 	return unless defined $file;
-	return if $keep_filenames{$file};
+	return if $keep_filenames{"$cat/$name/$file"};
 
 	$purgebytes += -s $_;
 	$purgefiles++;