diff options
author | Steve Bennett <steveb@workware.net.au> | 2011-11-14 08:49:33 +1000 |
---|---|---|
committer | Steve Bennett <steveb@workware.net.au> | 2011-11-18 07:59:40 +1000 |
commit | 2999556ded2042c03403b5bc97d64f5257572e4f (patch) | |
tree | 1ff1c599314a6fe90ab3793075122463af7885b3 /regtest.tcl | |
parent | c7f5c1516468bc44bd61e556adebbdf4e5f39e13 (diff) | |
download | jimtcl-2999556ded2042c03403b5bc97d64f5257572e4f.zip jimtcl-2999556ded2042c03403b5bc97d64f5257572e4f.tar.gz jimtcl-2999556ded2042c03403b5bc97d64f5257572e4f.tar.bz2 |
Don't allow upvar to a higher level
i.e. upvar of a global var to a proc var
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
-rw-r--r-- | regtest.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 999d4b0..0f2e5b6 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -165,6 +165,19 @@ set t 6 catch a puts "TEST 24 PASSED" +# REGTEST 25 +# 14 Nov 2011 - link global var to proc var +proc a {} { + set x 3 + upvar 0 x ::globx +} +set globx 0 +catch { + a +} +incr globx +puts "TEST 25 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |