From 16126b249baeab0f4094566de04e9f739a66458b Mon Sep 17 00:00:00 2001
From: Joshua Root <jmr@macports.org>
Date: Mon, 11 Aug 2025 15:19:55 +1000
Subject: [PATCH] mpbb-cleanup: report correct port name for build dirs

---
 mpbb-cleanup           | 7 ++++++-
 tools/noisy-delete.tcl | 7 ++++++-
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/mpbb-cleanup b/mpbb-cleanup
index d2a2599..52f6e4b 100644
--- a/mpbb-cleanup
+++ b/mpbb-cleanup
@@ -106,7 +106,12 @@ cleanup() {
     echo
     for dir in build logs; do
         echo "----> Deleting ${dir}"
-        ports="$(find "${option_prefix}/var/macports/${dir}" -name '.*' -prune -o -depth 2 -type d -print | sed 's,^.*/,,' | sort -fu)"
+        if [ "$dir" = build ]; then
+            ftype=l
+        else
+            ftype=d
+        fi
+        ports="$(find "${option_prefix}/var/macports/${dir}" -name '.*' -prune -o -depth 2 -type $ftype -print | sed 's,^.*/,,' | sort -fu)"
         for port in ${ports}; do
             echo "Deleting ${dir} for ${port}"
             "${option_prefix}/bin/port-tclsh" "${thisdir}/tools/noisy-delete.tcl" "${option_prefix}/var/macports/${dir}"/*/"${port}"
diff --git a/tools/noisy-delete.tcl b/tools/noisy-delete.tcl
index f69e254..9114ea0 100755
--- a/tools/noisy-delete.tcl
+++ b/tools/noisy-delete.tcl
@@ -15,4 +15,9 @@ set noisemaker {
 
 thread::create $noisemaker
 
-file delete -force {*}$::argv
+foreach f $::argv {
+    if {[file type $f] eq "link"} {
+        file delete -force [file link $f]
+    }
+    file delete -force $f
+}