diff options
-rwxr-xr-x | sbosrcarch | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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}++; |