sbosrcarch: fix purge_mode() so it actually purges stuff

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 {