aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2018-06-03 23:19:05 -0400
committerB. Watson <yalhcru@gmail.com>2018-06-03 23:19:05 -0400
commit09ce03269ba061b76699e7b3099a3ea48d00235c (patch)
treea9bd0f7b7727ecb0cb0f4f6e988759fa67856251
parent33b9a9ea4cadcdf7fde87be65bcdf826755bcf31 (diff)
downloadsbostuff-09ce03269ba061b76699e7b3099a3ea48d00235c.tar.gz
sbosrcarch purge_mode fix, wip
-rwxr-xr-xsbosrcarch7
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++;