[84173] trunk/base/src/port1.0/portfetch.tcl

[jmr at macports.org]

Revision: 84173
          http://trac.macports.org/changeset/84173
Author:   jmr at macports.org
Date:     2011-09-19 17:50:08 -0700 (Mon, 19 Sep 2011)
Log Message:
-----------
add missing global declarations for patchfiles in VCS fetch procs

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

Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl	2011-09-20 00:46:44 UTC (rev 84172)
+++ trunk/base/src/port1.0/portfetch.tcl	2011-09-20 00:50:08 UTC (rev 84173)
@@ -279,6 +279,7 @@
 
 # Perform a bzr fetch
 proc portfetch::bzrfetch {args} {
+    global patchfiles
     if {[catch {command_exec bzr "" "2>&1"} result]} {
         return -code error [msgcat::mc "Bazaar checkout failed"]
     }
@@ -338,7 +339,7 @@
 
 # Perform an svn fetch
 proc portfetch::svnfetch {args} {
-    global svn.args svn.method svn.revision svn.url
+    global svn.args svn.method svn.revision svn.url patchfiles
 
     if {[regexp {\s} ${svn.url}]} {
         return -code error [msgcat::mc "Subversion URL cannot contain whitespace"]
@@ -362,7 +363,7 @@
 
 # Perform a git fetch
 proc portfetch::gitfetch {args} {
-    global worksrcpath
+    global worksrcpath patchfiles
     global git.url git.branch git.sha1 git.cmd
 
     set options "-q"
@@ -394,7 +395,7 @@
 
 # Perform a mercurial fetch.
 proc portfetch::hgfetch {args} {
-    global worksrcpath prefix_frozen
+    global worksrcpath prefix_frozen patchfiles
     global hg.url hg.tag hg.cmd
 
     set cmdstring "${hg.cmd} clone --rev ${hg.tag} ${hg.url} ${worksrcpath} 2>&1"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110919/f017099b/attachment.html>