diff options
author | B. Watson <yalhcru@gmail.com> | 2018-06-04 00:40:27 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2018-06-04 00:40:27 -0400 |
commit | c216fc408e49615c11066af3a0fcaa7d885c8f92 (patch) | |
tree | 170d486649e283b43c0e35a014b778763ae1eed4 | |
parent | ab6c9900ccdaf545bdfe773ab12fdd63e0b0ffa5 (diff) | |
download | sbostuff-c216fc408e49615c11066af3a0fcaa7d885c8f92.tar.gz |
sbosrcarch purge_mode fix, wip
-rwxr-xr-x | sbosrcarch | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1267,7 +1267,7 @@ sub purge_pass_1_wanted { for(keys %$dls) { my $path = "by-name/$cat/$name/" . url_to_filename($_); $keep_filenames{$path}++; - $keep_md5sums{$dls{$_}}++; + $keep_md5sums{$$dls{$_}}++; } } @@ -1299,7 +1299,7 @@ sub purge_pass_3_wanted { s,^\./,,; # remove leading ./ my (undef, undef, undef, $md5sum) = split /\//, $_; - return unless defined $md5dum; + return unless defined $md5sum; if($keep_md5sums{$md5sum}) { print "keep md5sum: $md5sum\n"; |