portunarchive: delete any existing destroot first

Copy semantics would create a subdir if the target already exists.
macports · Oct 3, 2024 · dd194bd · dd194bd
1 parent c219570
commit dd194bd
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/package1.0/portunarchive.tcl b/src/package1.0/portunarchive.tcl
@@ -285,7 +285,10 @@ proc portunarchive::unarchive_main {args} {
         }
     } else {
         ui_info "$UI_PREFIX [format [msgcat::mc "Copying %s to destroot"] ${unarchive.file}]"
-        copy -force ${unarchive.path} ${unarchive.dir}
+        if {[file exists ${unarchive.dir}]} {
+            delete ${unarchive.dir}
+        }
+        copy ${unarchive.path} ${unarchive.dir}
     }
 
     return 0