5 lines
137 B
Tcl
5 lines
137 B
Tcl
if {[catch { ''... code that might give error ...'' } result]} {
|
|
puts "Error was $result"
|
|
} else {
|
|
''... process $result ...''
|
|
}
|