Posted to tcl by emiliano at Tue Aug 04 20:55:16 GMT 2009view pretty
% namespace eval a {variable avar} % proc a::b {} {variable avar; puts [namespace which -variable avar]} % a::b ::a::avar % namespace eval a {variable ary; set ary(key) value} value % proc a::c {} {variable ary; puts [namespace which -variable ary(key)]} % a::c % proc a::d {} {variable ary; puts [namespace which -variable ary]} % a::d ::a::ary % proc a::e {} {variable ary; puts $ary(key); puts [namespace which -variable ary(key)]} % a::e value % info patch 8.6b1.1 %