Posted to tcl by evilotto at Wed Nov 05 19:27:42 GMT 2014view pretty

package require tdom
proc ::dom::xpathFunc::crash {args} {return x}
dom parse {<a/>} doc
$doc selectNodes crash(//x)