[49770] trunk/base/src/port1.0/portfetch.tcl
jmr at macports.org
jmr at macports.org
Fri Apr 17 11:54:31 PDT 2009
Revision: 49770
http://trac.macports.org/changeset/49770
Author: jmr at macports.org
Date: 2009-04-17 11:54:31 -0700 (Fri, 17 Apr 2009)
Log Message:
-----------
consistent indenting for fetch_init
Modified Paths:
--------------
trunk/base/src/port1.0/portfetch.tcl
Modified: trunk/base/src/port1.0/portfetch.tcl
===================================================================
--- trunk/base/src/port1.0/portfetch.tcl 2009-04-17 18:53:07 UTC (rev 49769)
+++ trunk/base/src/port1.0/portfetch.tcl 2009-04-17 18:54:31 UTC (rev 49770)
@@ -741,16 +741,16 @@
if {[info exists distpath] && [info exists dist_subdir] && ![info exists fetch_init_done]} {
- # start gsoc08-privileges
- if {[info exists usealtworkpath] && $usealtworkpath == "yes"} {
- # I have removed ![file writable $distpath] from the if condition as
- # the writable condition seems to get confused by effective uids.
- set distpath "$altprefix/[ string range $distpath 1 end ]"
- ui_debug "Going to use $distpath for fetch."
- }
- # end gsoc08-privileges
- set distpath ${distpath}/${dist_subdir}
- set fetch_init_done yes
+ # start gsoc08-privileges
+ if {[info exists usealtworkpath] && $usealtworkpath == "yes"} {
+ # I have removed ![file writable $distpath] from the if condition as
+ # the writable condition seems to get confused by effective uids.
+ set distpath "$altprefix/[ string range $distpath 1 end ]"
+ ui_debug "Going to use $distpath for fetch."
+ }
+ # end gsoc08-privileges
+ set distpath ${distpath}/${dist_subdir}
+ set fetch_init_done yes
}
portfetch::checkfiles
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090417/8da6869b/attachment.html>
More information about the macports-changes
mailing list