[102570] trunk/base/src/port1.0/portlint.tcl

[ryandesign at macports.org]

Revision: 102570
          https://trac.macports.org/changeset/102570
Author:   ryandesign at 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:
--------------
    trunk/base/src/port1.0/portlint.tcl

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- 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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20130204/d2c781a1/attachment.html>