sbosrcarch purge_mode fix, wip

1 files changed, 1 insertions, 1 deletions

diff --git a/sbosrcarch b/sbosrcarch
index 07e02c6..fcfb36d 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1265,7 +1265,7 @@ sub purge_pass_1_wanted {
 	my ($cat, $name, undef) = split /\//, $_;
 	for(keys %$dls) {
 		my $path = "by-name/$cat/$name/" . url_to_filename($_);
-		$keep_filenames{$_}++;
+		$keep_filenames{$path}++;
 		# TODO: populate %keep_md5sums
 	}
 }