diff options
author | B. Watson <yalhcru@gmail.com> | 2018-05-27 18:31:27 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2018-05-27 18:31:27 -0400 |
commit | 92179767feaa8187d12b7782091fa955744c643d (patch) | |
tree | 1bdd9a14ea7a0a11b733f83bf1785460aae3a2ad | |
parent | 3eb01c5be66e12f9386e6aaaad519ca131e1bc66 (diff) | |
download | sbostuff-92179767feaa8187d12b7782091fa955744c643d.tar.gz |
sbosrcarch: fix purge_mode() so it actually purges stuff
-rwxr-xr-x | sbosrcarch | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -1271,8 +1271,11 @@ sub purge_pass_2_wanted { $purgebytes += -s $_; $purgefiles++; - unlink md5_dir(md5sum_file($_)). "/$file"; - unlink $_; + my $namepath = name_dir($cat, $name) . "$file"; + my $md5path = md5_dir(md5sum_file($fullpath)) . "$file"; + warn ";;; unlink $namepath $md5path\n"; + unlink $namepath; + unlink $md5path; } sub rebuild_wanted { |