Posted to tcl by partymola at Thu Mar 29 14:31:58 GMT 2007view pretty
% set NAME "John Doe" John Doe % proc test {} { set latribs "name surname" global [string toupper $latribs] set NAME "Paul Allen" } % test Paul Allen % puts $NAME John Doe
% set NAME "John Doe" John Doe % proc test {} { set latribs "name surname" global [string toupper $latribs] set NAME "Paul Allen" } % test Paul Allen % puts $NAME John Doe