Tcl Source Code

<code><verbatim>
namespace eval ns1 {
	namespace delete [namespace current]
	namespace eval [namespace current] {}
	namespace eval doc {}
	set doc::var1 val1
	::apply [list {} {
		puts $doc::var1 ;# -> can't read "$doc::var1": no such variable
	} [namespace current]]
}
</verbatim></code>

And here is an example where two variables, both having the name
$ns1::doc::var1 print their different values:

<code><verbatim>
namespace eval ns1 {
	namespace delete [namespace current]
	namespace eval [namespace current] {}
	namespace eval doc {}
	set doc::var1 val1
	::apply [list {} {
		namespace eval doc {}
		set doc::var1 val2
		puts $doc::var1
	} [namespace current]]
	puts $doc::var1
}
</verbatim></code>