Revision: 102570 https://trac.macports.org/changeset/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.htm... 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