diff options
author | B. Watson <yalhcru@gmail.com> | 2018-06-03 23:20:39 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2018-06-03 23:20:39 -0400 |
commit | 5ad919557b00389f10738e5908b70facb324ec40 (patch) | |
tree | f3a61c9f64fa0965285cd4af702ac4e12cedff1f | |
parent | 4019f257fe4e8e6588e64565fd179f53ee8f2333 (diff) | |
download | sbostuff-5ad919557b00389f10738e5908b70facb324ec40.tar.gz |
sbosrcarch purge_mode fix, wip
-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}++; |