[77740] trunk/base/src/port1.0/portinstall.tcl

[jmr at macports.org]

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>