Alter foreachport to avoid losing a level of quoting

git-svn-id: https://svn.macports.org/repository/macports/trunk/base@14556 d073be05-634f-4543-b044-5fe20cf6d1d6
macports · Oct 11, 2005 · 8791b6d · 8791b6d
1 parent f90adeb
commit 8791b6d
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/src/port/port.tcl b/src/port/port.tcl
@@ -2,7 +2,7 @@
 #\
 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>
 # Copyright (c) 2002 Apple Computer, Inc.
@@ -379,17 +379,17 @@ proc require_portlist {} {
 # will have been set
 proc foreachport {portlist block} {
 	foreach portspec $portlist {
-		array set port $portspec
+		uplevel 1 "array set portspec { $portspec }"
-		uplevel 1 "
+		uplevel 1 {
-			set porturl \"$port(url)\"
+			set porturl $portspec(url)
-			set portname \"$port(name)\"
+			set portname $portspec(name)
-			set portversion \"$port(version)\"
+			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) }
+			array set options [array get $portspec(options)]
-			$block
+		}
-			"
+		uplevel 1 $block
 	}
 }