From 72bcf3c7be29077195f1082835fbd1abb9aefc26 Mon Sep 17 00:00:00 2001 From: apn Date: Thu, 19 Oct 2017 12:08:05 +0300 Subject: [PATCH] 0029247: Tests, CheckCommands.tcl - Tcl exception "expected integer but got 3dviewer" in test cases on macOS Test cases on macOS (using native tcl from /usr/lib) fail when $lst starts with numeral, because upvar guesses that its first parameter is level rather than otherVar. The fix is to explicitly supply level to 1 (default value if uplevel is omitted) to avoid tcl exception "expected integer but got 3dviewer". --- src/DrawResources/CheckCommands.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/DrawResources/CheckCommands.tcl b/src/DrawResources/CheckCommands.tcl index b9acbb100d..668e59ef31 100644 --- a/src/DrawResources/CheckCommands.tcl +++ b/src/DrawResources/CheckCommands.tcl @@ -473,7 +473,7 @@ proc _check_args { args {options {}} {command_name ""}} { set get_value [lindex ${option} 2] set local_value "" if { [_check_arg ${option_name} local_value ${get_value}] } { - upvar ${variable_to_save_value} ${variable_to_save_value} + upvar 1 ${variable_to_save_value} ${variable_to_save_value} set ${variable_to_save_value} ${local_value} set toContinue 1 }