diff options
-rwxr-xr-x | sbosrcarch | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1272,7 +1272,7 @@ sub purge_pass_2_wanted { $purgefiles++; my $namepath = name_dir($cat, $name) . "$file"; - my $md5path = md5_dir(md5sum_file($fullpath)) . "$file"; + my $md5path = md5_dir(md5sum_file($namepath)) . "$file"; warn ";;; unlink $namepath $md5path\n"; unlink $namepath; unlink $md5path; |