Posted to tcl by sebres at Fri Feb 15 16:46:16 GMT 2019view pretty

namespace eval x { 
  trace add variable \x00 unset {::ns_deleted test} 
}
proc ns_deleted {pref vn args} {
  upvar $vn v
  puts "*** namespace delete event - $pref";
}
puts "=== delete var ==="
unset -nocomplain \x00
puts "=== delete NS ==="
namespace delete x

# produces:
# === delete var ===
# === delete NS ===
# *** namespace delete event - test

Comments

Posted by avl42 at Mon Feb 18 13:06:58 GMT 2019 [text] [code]

% unset x::\x00 *** namespace delete event - test can't unset "x::": no such variable %