Changeset 14556 for trunk/base

Timestamp:

Oct 11, 2005, 1:06:51 PM (19 years ago)

Author:

jberry

Message:

Alter foreachport to avoid losing a level of quoting

File:

• trunk/base/src/port/port.tcl (modified) (2 diffs)

trunk/base/src/port/port.tcl

@@ -3 +3 @@
 exec @TCLSH@ "$0" "$@"
 # port.tcl
-# $Id: port.tcl,v 1.119 2005/10/10 14:19:04 jberry Exp $
+# $Id: port.tcl,v 1.120 2005/10/11 13:06:51 jberry Exp $
 #
 # Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
@@ -380 +380 @@
 proc foreachport {portlist block} {
         foreach portspec $portlist {
-                array set port $portspec
-                uplevel 1 "
-                        set porturl \"$port(url)\"
-                        set portname \"$port(name)\"
-                        set portversion \"$port(version)\"
+                uplevel 1 "array set portspec { $portspec }"
+                uplevel 1 {
+                        set porturl $portspec(url)
+                        set portname $portspec(name)
+                        set portversion $portspec(version)
                         array unset variations
-                        array set variations { $port(variants) }
+                        array set variations [array get $portspec(variants)]
                         array unset options
-                        array set options { $port(options) }
-                        $block
-                        "
+                        array set options [array get $portspec(options)]
+                }
+                uplevel 1 $block
         }
 }