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

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