From 5ad919557b00389f10738e5908b70facb324ec40 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Sun, 3 Jun 2018 23:20:39 -0400 Subject: sbosrcarch purge_mode fix, wip --- sbosrcarch | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sbosrcarch') 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