<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-base.

</pre>
<p><a href="https://github.com/macports/macports-base/commit/150c99dc127804a45ace99d6d2289a0d98da1cab">https://github.com/macports/macports-base/commit/150c99dc127804a45ace99d6d2289a0d98da1cab</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'>     new 150c99dc1 get_{dep_,sub}ports: don't error if -p was used
</span>150c99dc1 is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 150c99dc127804a45ace99d6d2289a0d98da1cab
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Oct 21 18:51:05 2023 +1100

<span style='display:block; white-space:pre;color:#404040;'>    get_{dep_,sub}ports: don't error if -p was used
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    Closes: https://trac.macports.org/ticket/61015
</span>---
 src/port/port.tcl | 72 ++++++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 50 insertions(+), 22 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/src/port/port.tcl b/src/port/port.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index f1ef9340e..dd825fac8 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/src/port/port.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -986,11 +986,20 @@ proc get_dep_ports {portname recursive} {
</span> 
     # look up portname
     if {[catch {mportlookup $portname} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "lookup of portname $portname failed: $result"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "lookup of portname $portname failed"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "lookup of portname $portname failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    } elseif {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>     }
     array unset portinfo
     array set portinfo [lindex $result 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -998,16 +1007,21 @@ proc get_dep_ports {portname recursive} {
</span> 
     # open portfile
     if {[catch {set mport [mportopen $porturl [list subport $portinfo(name)] [array get global_variations]]} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "Unable to open port: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Unable to open port $portinfo(name): $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "Unable to open port $portinfo(name): $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>     }
     array unset portinfo
     array set portinfo [mportinfo $mport]
     mportclose $mport
 
     # gather its deps
<span style='display:block; white-space:pre;background:#ffe0e0;'>-    set results {}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    set deptypes {depends_fetch depends_extract depends_patch depends_build depends_lib depends_run depends_test}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set results [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    set deptypes [list depends_fetch depends_extract depends_patch depends_build depends_lib depends_run depends_test]
</span> 
     set deplist {}
     foreach type $deptypes {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1031,10 +1045,10 @@ proc get_dep_ports {portname recursive} {
</span> 
                     # look up the dep
                     if {[catch {mportlookup $depname} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        return -code error "lookup of portname $depname failed: $result"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    if {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        ui_error "lookup of portname $depname failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        continue
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    } elseif {[llength $result] < 2} {
</span>                         ui_error "Port $depname not found"
                         continue
                     }
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1044,8 +1058,8 @@ proc get_dep_ports {portname recursive} {
</span> 
                     # open its portfile
                     if {[catch {set mport [mportopen $porturl [list subport $portinfo(name)] [array get global_variations]]} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-                        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                        ui_error "Unable to open port: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                        ui_error "Unable to open port $depname: $result"
</span>                         continue
                     }
                     array unset portinfo
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1087,11 +1101,20 @@ proc get_subports {portname} {
</span> 
     # look up portname
     if {[catch {mportlookup $portname} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "lookup of portname $portname failed: $result"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    }
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-    if {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "lookup of portname $portname failed"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "lookup of portname $portname failed: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+    } elseif {[llength $result] < 2} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "Port $portname not found"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>     }
     array unset portinfo
     array set portinfo [lindex $result 1]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -1099,8 +1122,13 @@ proc get_subports {portname} {
</span> 
     # open portfile
     if {[catch {set mport [mportopen $porturl [list subport $portinfo(name)] [array get global_variations]]} result]} {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        ui_debug "$::errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-        return -code error "Unable to open port: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        ui_debug $::errorInfo
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[macports::ui_isset ports_processall]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            ui_error "Unable to open port $portinfo(name): $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return [list]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        } else {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+            return -code error "Unable to open port $portinfo(name): $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        }
</span>     }
     array unset portinfo
     array set portinfo [mportinfo $mport]
</pre><pre style='margin:0'>

</pre>