diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-05-26 08:07:28 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-05-26 08:07:28 +1000 |
| commit | 4a62d315d05f6b020c9050be4b65b90864119d39 (patch) | |
| tree | a9e6579f863964dd72882238b8d03450e667ab19 /regtest.tcl | |
| parent | c701eb29022e71b6f3a12ae10fc96000547a0b8e (diff) | |
| download | jimtcl-4a62d315d05f6b020c9050be4b65b90864119d39.zip jimtcl-4a62d315d05f6b020c9050be4b65b90864119d39.tar.gz jimtcl-4a62d315d05f6b020c9050be4b65b90864119d39.tar.bz2 | |
Fix crash with: global ::name
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl index 64713b4..632df73 100644 --- a/regtest.tcl +++ b/regtest.tcl @@ -124,6 +124,12 @@ catch { } puts "TEST 19 PASSED" +# REGTEST 20 +# 26 May 2011 - infinite recursion +proc a {} { global ::blah; set ::blah test } +a +puts "TEST 20 PASSED" + # TAKE THE FOLLOWING puts AS LAST LINE puts "--- ALL TESTS PASSED ---" |