diff options
| author | Steve Bennett <steveb@workware.net.au> | 2011-11-30 07:51:51 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2011-11-30 07:51:51 +1000 |
| commit | f9064e5d775d16fe19165eb638cceea0598eb165 (patch) | |
| tree | 93a2dd51cb4611e641e94bc78f0f58a2783f5edb /examples/dns.tcl | |
| parent | 2ed74c7ea79ab83c061c0b248892a26bf1f72f2b (diff) | |
| download | jimtcl-f9064e5d775d16fe19165eb638cceea0598eb165.zip jimtcl-f9064e5d775d16fe19165eb638cceea0598eb165.tar.gz jimtcl-f9064e5d775d16fe19165eb638cceea0598eb165.tar.bz2 | |
Fix the poor-man's 'variable' in dns.tcl
Redefining upvar links is no longer allowed
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'examples/dns.tcl')
| -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 |