[77740] trunk/base/src/port1.0/portinstall.tcl
jmr at macports.org
jmr at macports.org
Sun Apr 10 18:35:57 PDT 2011
Revision: 77740
http://trac.macports.org/changeset/77740
Author: jmr at macports.org
Date: 2011-04-10 18:35:57 -0700 (Sun, 10 Apr 2011)
Log Message:
-----------
fix leading slashes missing from contents extracted from downloaded archives
Modified Paths:
--------------
trunk/base/src/port1.0/portinstall.tcl
Modified: trunk/base/src/port1.0/portinstall.tcl
===================================================================
--- trunk/base/src/port1.0/portinstall.tcl 2011-04-11 01:31:53 UTC (rev 77739)
+++ trunk/base/src/port1.0/portinstall.tcl 2011-04-11 01:35:57 UTC (rev 77740)
@@ -474,13 +474,14 @@
}
set contents {}
set ignore 0
+ set sep [file separator]
foreach line [split $raw_contents \n] {
if {$ignore} {
set ignore 0
continue
}
if {[string index $line 0] != "@"} {
- lappend contents $line
+ lappend contents "${sep}${line}"
} elseif {$line == "@ignore"} {
set ignore 1
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110410/7d505d92/attachment.html>
More information about the macports-changes
mailing list