From 2999556ded2042c03403b5bc97d64f5257572e4f Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Mon, 14 Nov 2011 08:49:33 +1000
Subject: 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>
---
 regtest.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'regtest.tcl')

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 ---"
-- 
cgit v1.1