aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xsbosrcarch2
1 files changed, 1 insertions, 1 deletions
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}++;