7 lines
178 B
Tcl
7 lines
178 B
Tcl
|
if {$problem} {
|
||
|
|
# Print a “friendly” message...
|
||
|
|
puts stderr "some problem occurred"
|
||
|
|
# Indicate to the caller of the program that there was a problem
|
||
|
|
exit 1
|
||
|
|
}
|