From 5ad919557b00389f10738e5908b70facb324ec40 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 3 Jun 2018 23:20:39 -0400
Subject: sbosrcarch purge_mode fix, wip

---
 sbosrcarch | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sbosrcarch b/sbosrcarch
index fcfb36d..97dd282 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -1262,7 +1262,7 @@ sub purge_mode {
 sub purge_pass_1_wanted {
 	return unless /\.info$/;
 	my $dls = parse_info($_);
-	my ($cat, $name, undef) = split /\//, $_;
+	my ($undef, $cat, $name, undef) = split /\//, $_;
 	for(keys %$dls) {
 		my $path = "by-name/$cat/$name/" . url_to_filename($_);
 		$keep_filenames{$path}++;
-- 
cgit v1.2.3