[58777] trunk/base/src/port1.0/portutil.tcl

[ryandesign at macports.org]

Revision: 58777
          http://trac.macports.org/changeset/58777
Author:   ryandesign at macports.org
Date:     2009-10-04 23:01:53 -0700 (Sun, 04 Oct 2009)
Log Message:
-----------
portutil.tcl: Support paths with special characters like spaces in the merge_lipo proc

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

Modified: trunk/base/src/port1.0/portutil.tcl
===================================================================
--- trunk/base/src/port1.0/portutil.tcl	2009-10-05 06:00:36 UTC (rev 58776)
+++ trunk/base/src/port1.0/portutil.tcl	2009-10-05 06:01:53 UTC (rev 58777)
@@ -2171,12 +2171,11 @@
 # e.g. 'merge_lipo ${workpath}/pre-dest ${destroot} ${prefix}/bin/pstree i386 ppc
 # will merge binary files with lipo which have to be in the same (relative) path
 proc merge_lipo {base target file archs} {
-    set exec-lipo ""
+    set exec-lipo [list [findBinary lipo $portutil::autoconf::lipo_path]]
     foreach arch ${archs} {
-        set exec-lipo [concat ${exec-lipo} [list "-arch" "${arch}" "${base}/${arch}${file}"]]
+        lappend exec-lipo -arch ${arch} ${base}/${arch}${file}
     }
-    set exec-lipo [concat ${exec-lipo}]
-    system "[findBinary lipo $portutil::autoconf::lipo_path] ${exec-lipo} -create -output ${target}${file}"
+    eval exec ${exec-lipo} [list -create -output ${target}${file}]
 }
 
 # private function
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091004/df0fdffa/attachment.html>