blob: 3a5628c370444b0d1b1182d03972fdd0c0116870 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
--- fsl/src/misc_tcl/fsl_exec.tcl.orig 2017-06-12 17:54:14.000000000 -0400
+++ fsl/src/misc_tcl/fsl_exec.tcl 2017-06-12 18:45:07.176756012 -0400
@@ -175,6 +175,7 @@ proc fsl:exec { thecommand args } {
set logout ""
}
+ if { ! [ info exists ::errorCode ] } { set ::errorCode "NONE" }
# run and log the actual command
if { $do_logout } {
fsl:echo $logout "\n$thecommand"
|