Ticket #14061: port.tcl.diff

src/port/port.tcl

@@ -1678 +1678 @@
     set status 0
     require_portlist portlist
     foreachport $portlist {
+        # search for port
+        if {[catch {mportsearch $portname no exact} result]} {
+            global errorInfo
+            ui_debug "$errorInfo"
+            break_softcontinue "search for portname $portname failed: $result" 1 status
+        }
+        if {[llength $result] < 2} {
+            break_softcontinue "Port $portname not found" 1 status
+        }
+
         set files [registry::port_registered $portname]
         if { $files != 0 } {
             if { [llength $files] > 0 } {