Posted to tcl by kbk at Thu May 25 16:57:16 GMT 2017view raw
- # Ambiguous syntax of 'switch':
- proc test {args} {
- puts [info level 0]
- }
- proc bad {x} {
- switch -exact $x this {test with this {puts "haha, gotcha!"} and $x}
- }
- bad good
- bad this
- bad -nocase
- # result:
- test with this {puts "haha, gotcha!"} and this
- haha, gotcha!