[41044] branches/variant-descs-14482/base/src/port1.0/portlint.tcl

[raimue at macports.org]

Revision: 41044
          http://trac.macports.org/changeset/41044
Author:   raimue at macports.org
Date:     2008-10-21 04:19:47 -0700 (Tue, 21 Oct 2008)
Log Message:
-----------
port1.0/portlint.tcl:
Use getresourcepath for group files

Modified Paths:
--------------
    branches/variant-descs-14482/base/src/port1.0/portlint.tcl

Modified: branches/variant-descs-14482/base/src/port1.0/portlint.tcl
===================================================================
--- branches/variant-descs-14482/base/src/port1.0/portlint.tcl	2008-10-21 11:15:16 UTC (rev 41043)
+++ branches/variant-descs-14482/base/src/port1.0/portlint.tcl	2008-10-21 11:19:47 UTC (rev 41044)
@@ -146,7 +146,7 @@
 }
 
 proc lint_main {args} {
-	global UI_PREFIX portname portpath porturl portresourcepath
+	global UI_PREFIX portname portpath porturl
 	set portfile ${portpath}/Portfile
 	set portdirs [split ${portpath} /]
 	set last [llength $portdirs]
@@ -154,7 +154,6 @@
 	set portdir [lindex $portdirs $last]
 	incr last -1
 	set portcatdir [lindex $portdirs $last]
-	set groupdir ${portresourcepath}/group
 
 	set warnings 0
 	set errors 0
@@ -309,7 +308,7 @@
     }
     if (!$seen_portgroup) {
         # PortGroup is optional, so missing is OK
-    }  elseif {![file exists $groupdir/$portgroup-$portgroupversion.tcl]} {
+    }  elseif {![file exists [getportresourcepath $porturl "port1.0/group/${portgroup}-${portgroupversion}.tcl"]]} {
         ui_error "Unknown PortGroup: $portgroup-$portgroupversion"
         incr errors
     } else {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20081021/03c2a0a6/attachment.html