Revision
102570
Author
ryandesign@macports.org
Date
2013-02-04 14:32:20 -0800 (Mon, 04 Feb 2013)

Log Message

portlint.tcl: when "port lint" prints the error "Line X has unrecognized PortGroup", prevent subsequent error message "can't read 'portgroup': no such variable"; see https://lists.macosforge.org/pipermail/macports-dev/2012-December/021207.html

Modified Paths

Diff

Modified: trunk/base/src/port1.0/portlint.tcl (102569 => 102570)


--- trunk/base/src/port1.0/portlint.tcl	2013-02-04 22:32:17 UTC (rev 102569)
+++ trunk/base/src/port1.0/portlint.tcl	2013-02-04 22:32:20 UTC (rev 102570)
@@ -208,12 +208,13 @@
             if {![info exists portgroup]} {
                 ui_error "Line $lineno has unrecognized PortGroup"
                 incr errors
-            }
-            if {[info exists portgroups($portgroup)]} {
-                ui_error "Line $lineno repeats inclusion of PortGroup $portgroup"
-                incr errors
             } else {
-                set portgroups($portgroup) $portgroupversion
+                if {[info exists portgroups($portgroup)]} {
+                    ui_error "Line $lineno repeats inclusion of PortGroup $portgroup"
+                    incr errors
+                } else {
+                    set portgroups($portgroup) $portgroupversion
+                }
             }
             set seen_portgroup true
             set require_blank true