From b28a551538740c5515c0a697a53a50cdfe3fe3f7 Mon Sep 17 00:00:00 2001 From: Christian Prochaska Date: Mon, 7 Apr 2014 19:47:31 +0200 Subject: [PATCH] run: use 'upvar' instead of 'global' Using 'upvar' instead of 'global' in the 'append_if' and 'lappend_if' functions makes it possible to use these functions with local variables of the calling function. Fixes #1137. --- tool/run | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/tool/run b/tool/run index ce2ed2ce7f..fc088fb133 100755 --- a/tool/run +++ b/tool/run @@ -69,8 +69,8 @@ proc create_boot_directory { } { } # Append string to variable only if 'condition' is satisfied # proc append_if {condition var string} { - global $var - if {$condition} { append $var $string } + upvar $var up_var + if {$condition} { append up_var $string } } @@ -78,8 +78,8 @@ proc append_if {condition var string} { # Append element to list only if 'condition' is satisfied # proc lappend_if {condition var string} { - global $var - if {$condition} { lappend $var $string } + upvar $var up_var + if {$condition} { lappend up_var $string } }