Changeset 81831

Timestamp:

08/05/11 10:35:41 (4 years ago)

Author:

jmr@…

Message:

simplify quoting

File:

• trunk/base/src/macports1.0/macports.tcl (modified) (1 diff)

trunk/base/src/macports1.0/macports.tcl

@@ -1185 +1185 @@
     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"