From ab6c9900ccdaf545bdfe773ab12fdd63e0b0ffa5 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Mon, 4 Jun 2018 00:39:28 -0400
Subject: sbosrcarch purge_mode fix, wip

---
 sbosrcarch | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/sbosrcarch b/sbosrcarch
index 2c4c8ae..44e60ef 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1267,7 +1267,7 @@ sub purge_pass_1_wanted {
 	for(keys %$dls) {
 		my $path = "by-name/$cat/$name/" . url_to_filename($_);
 		$keep_filenames{$path}++;
-		# TODO: populate %keep_md5sums
+		$keep_md5sums{$dls{$_}}++;
 	}
 }
 
@@ -1295,9 +1295,12 @@ 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 {
-	s,^\./,,; # remove leading ./
 	return unless -d $_;   # not necessarily necessary...
+
+	s,^\./,,; # remove leading ./
 	my (undef, undef, undef, $md5sum) = split /\//, $_;
+	return unless defined $md5dum;
+
 	if($keep_md5sums{$md5sum}) {
 		print "keep md5sum: $md5sum\n";
 	} else {
-- 
cgit v1.2.3