From 92179767feaa8187d12b7782091fa955744c643d Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Sun, 27 May 2018 18:31:27 -0400
Subject: sbosrcarch: fix purge_mode() so it actually purges stuff

---
 sbosrcarch | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'sbosrcarch')

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 {
-- 
cgit v1.2.3