[119688] trunk/base/src/port1.0/tests/test.tcl
cal at macports.org
cal at macports.org
Sat May 3 15:18:43 PDT 2014
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>
More information about the macports-changes
mailing list