aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2018-05-27 18:31:27 -0400
committerB. Watson <yalhcru@gmail.com>2018-05-27 18:31:27 -0400
commit92179767feaa8187d12b7782091fa955744c643d (patch)
tree1bdd9a14ea7a0a11b733f83bf1785460aae3a2ad
parent3eb01c5be66e12f9386e6aaaad519ca131e1bc66 (diff)
downloadsbostuff-92179767feaa8187d12b7782091fa955744c643d.tar.gz
sbosrcarch: fix purge_mode() so it actually purges stuff
-rwxr-xr-xsbosrcarch7
1 files changed, 5 insertions, 2 deletions
diff --git a/sbosrcarch b/sbosrcarch
index e593979..91557c3 100755
--- a/sbosrcarch
+++ b/sbosrcarch
@@ -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 {