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

[ryandesign at macports.org]

Revision: 97367
          https://trac.macports.org/changeset/97367
Author:   ryandesign at macports.org
Date:     2012-09-04 02:14:26 -0700 (Tue, 04 Sep 2012)
Log Message:
-----------
portlint.tcl: adjust some lint messages; allow portgroups to have an underscore in their name

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

Modified: trunk/base/src/port1.0/portlint.tcl
===================================================================
--- trunk/base/src/port1.0/portlint.tcl	2012-09-04 08:44:21 UTC (rev 97366)
+++ trunk/base/src/port1.0/portlint.tcl	2012-09-04 09:14:26 UTC (rev 97367)
@@ -191,7 +191,7 @@
 
         if {[string match "PortSystem*" $line]} {
             if {$seen_portsystem} {
-                ui_error "Line $lineno repeats PortSystem information"
+                ui_error "Line $lineno repeats PortSystem declaration"
                 incr errors
             }
             regexp {PortSystem\s+([0-9.]+)} $line -> portsystem
@@ -204,13 +204,13 @@
             set require_after "PortSystem"
         }
         if {[string match "PortGroup*" $line]} {
-            regexp {PortGroup\s+([a-z0-9]+)\s+([0-9.]+)} $line -> portgroup portgroupversion
+            regexp {PortGroup\s+([a-z0-9_]+)\s+([0-9.]+)} $line -> portgroup portgroupversion
             if {![info exists portgroup]} {
                 ui_error "Line $lineno has unrecognized PortGroup"
                 incr errors
             }
             if {[info exists portgroups($portgroup)]} {
-                ui_error "Line $lineno repeats PortGroup information"
+                ui_error "Line $lineno repeats inclusion of PortGroup $portgroup"
                 incr errors
             } else {
                 set portgroups($portgroup) $portgroupversion
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20120904/50b4117f/attachment.html>