diff options
Diffstat (limited to 'examples')
-rw-r--r-- | examples/dns.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
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 |