aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2018-06-04 04:11:09 -0400
committerB. Watson <yalhcru@gmail.com>2018-06-04 04:11:09 -0400
commit91532c42ff36d4ef0efc0b8451675399a9f04813 (patch)
tree2408c3ab1ac3ee826a45e349d7a2e214d8cfcf21
parenta54e488454ea4260a0da388113c2952f56afedca (diff)
downloadsbostuff-91532c42ff36d4ef0efc0b8451675399a9f04813.tar.gz
sbosrcarch purge_mode fix, wip
-rwxr-xr-xsbosrcarch7
1 files changed, 3 insertions, 4 deletions
diff --git a/sbosrcarch b/sbosrcarch
index 7d96c49..d073651 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1311,11 +1311,10 @@ sub purge_pass_2_wanted {
# helper for purge_mode, removes all files in by-md5
# dirs that aren't listed in %keep_md5sums
sub purge_pass_3_wanted {
- return unless -d $_; # not necessarily necessary...
-
s,^\./,,; # remove leading ./
- my (undef, undef, undef, $md5sum) = split /\//, $_;
- return unless defined $md5sum;
+ my (undef, undef, undef, $md5sum, $filename) = split /\//, $_;
+ return unless defined $md5sum; # only want the last dir...
+ return if defined $filename; # and skip if it's not the dir
if($keep_md5sums{$md5sum}) {
#print "keep md5sum: $md5sum\n";