Changeset 1532 for trunk/base

Timestamp:

Jan 3, 2003, 10:57:26 PM (21 years ago)

Author:

jkh

Message:

Properly use variations as an array.

File:

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

trunk/base/src/port/portall.tcl

@@ -146 +146 @@
     global target options variations
 
-    if [catch {set interp [dportopen file://$portdir [array get options] $variations]} err] {
+    if [catch {set interp [dportopen file://$portdir [array get options] [array get variations]]} err] {
         puts "Error: Couldn't create interpreter for $portdir: $err"
         return -1
@@ -159 +159 @@
 # zero-out the options array
 array set options [list]
-set variations [list]
+array set variations [list]
 
 if { $argc < 1 } {