From f9064e5d775d16fe19165eb638cceea0598eb165 Mon Sep 17 00:00:00 2001 From: Steve Bennett Date: Wed, 30 Nov 2011 07:51:51 +1000 Subject: Fix the poor-man's 'variable' in dns.tcl Redefining upvar links is no longer allowed Signed-off-by: Steve Bennett --- examples/dns.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'examples/dns.tcl') diff --git a/examples/dns.tcl b/examples/dns.tcl index bc17762..a40d44a 100644 --- a/examples/dns.tcl +++ b/examples/dns.tcl @@ -46,7 +46,7 @@ package require binary # Poor-man's variable for Jim Tcl # Links a global variable, ::ns::var to a local variable, var proc variable {ns var} { - uplevel 1 [list upvar #0 ${ns}::$var $var] + catch {uplevel 1 [list upvar #0 ${ns}::$var $var]} } set dns::version 1.3.3 -- cgit v1.1