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
%