Posted to tcl by pooryorick at Fri Jun 02 11:13:25 GMT 2017view raw
- 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]]
- }