Changeset 14563 for trunk/base

Timestamp:

Oct 11, 2005, 8:09:47 PM (19 years ago)

Author:

jberry

Message:

Fix issue in port(1) with options and variants, broken by my checkin this morning.
This showed up as options (like -f) not working. God, I hate tcl arrays.

Thanks for testing, Joe Autry!

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.120 2005/10/11 13:06:51 jberry Exp $
+# $Id: port.tcl,v 1.121 2005/10/11 20:09:47 jberry Exp $
 #
 # Copyright (c) 2004 Robert Shaw <rshaw@opendarwin.org>
@@ -386 +386 @@
                         set portversion $portspec(version)
                         array unset variations
-                        array set variations [array get $portspec(variants)]
+                        array set variations $portspec(variants)
                         array unset options
-                        array set options [array get $portspec(options)]
+                        array set options $portspec(options)
                 }
                 uplevel 1 $block