aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 {