[81831] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 81831
          http://trac.macports.org/changeset/81831
Author:   jmr at macports.org
Date:     2011-08-05 10:35:41 -0700 (Fri, 05 Aug 2011)
Log Message:
-----------
simplify quoting

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2011-08-05 17:34:10 UTC (rev 81830)
+++ trunk/base/src/macports1.0/macports.tcl	2011-08-05 17:35:41 UTC (rev 81831)
@@ -1184,9 +1184,9 @@
     set tarcmd [findBinary tar $macports::autoconf::tar_path]
     set tarflags [get_tar_flags [file extension $fetchfile]]
     set qflag ${macports::autoconf::tar_q}
-    set cmdline "$tarcmd ${tarflags}${qflag}xOf {$fetchfile} +CONTENTS"
+    set cmdline "$tarcmd ${tarflags}${qflag}xOf '$fetchfile' +CONTENTS"
     ui_debug "$cmdline"
-    if {![catch {set contents [eval exec $cmdline]}]} {
+    if {![catch {set contents [exec $cmdline]}]} {
         set binary 1
         ui_debug "getting port name from binary archive"
         # get the portname from the contents file
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110805/67144566/attachment-0001.html>