[91250] trunk/base/src/port1.0/portutil.tcl

[jmr at macports.org]

Revision: 91250
          https://trac.macports.org/changeset/91250
Author:   jmr at macports.org
Date:     2012-03-27 06:11:35 -0700 (Tue, 27 Mar 2012)
Log Message:
-----------
don't add $name to PortInfo(subports) list

Modified Paths:
--------------
    trunk/base/src/port1.0/portutil.tcl

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2012-03-27 12:27:58 UTC (rev 91249)
+++ trunk/base/src/port1.0/portutil.tcl	2012-03-27 13:11:35 UTC (rev 91250)
@@ -792,8 +792,9 @@
 # This executes the given code in 'body' if we were opened as the specified
 # subport, and also adds it to the list of subports that are defined.
 proc subport {subname body} {
-    global subport PortInfo
-    if {![info exists PortInfo(subports)] || [lsearch -exact $PortInfo(subports) $subname] == -1} {
+    global subport name PortInfo
+    if {$subport == $name && $subname != $name && 
+        (![info exists PortInfo(subports)] || [lsearch -exact $PortInfo(subports) $subname] == -1)} {
         lappend PortInfo(subports) $subname
     }
     if {[string equal -nocase $subname $subport]} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120327/e156f1fc/attachment-0001.html>