[119688] trunk/base/src/port1.0/tests/test.tcl

[cal at macports.org]

Revision: 119688
          https://trac.macports.org/changeset/119688
Author:   cal at macports.org
Date:     2014-05-03 15:18:43 -0700 (Sat, 03 May 2014)
Log Message:
-----------
base: port1.0 tests: convert $arguments to list

Modified Paths:
--------------
    trunk/base/src/port1.0/tests/test.tcl

Modified: trunk/base/src/port1.0/tests/test.tcl
===================================================================
--- trunk/base/src/port1.0/tests/test.tcl	2014-05-03 22:17:52 UTC (rev 119687)
+++ trunk/base/src/port1.0/tests/test.tcl	2014-05-03 22:18:43 UTC (rev 119688)
@@ -1,5 +1,5 @@
 # Global vars
-set arguments ""
+set arguments {}
 set test_name ""
 set color_out ""
 set tcl ""
@@ -41,7 +41,7 @@
         set index [expr {[lsearch $argv $arg] + 1}]
         set level [lindex $argv $index]
         if { $level >= 0 && $level <= 3 } {
-            append arguments "-debug " $level
+            lappend arguments "-debug" $level
         } else {
             puts "Invalid debug level."
             exit 1
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20140503/c5f69d1a/attachment.html>