Changeset 2647 for trunk

Timestamp:

Oct 23, 2011, 8:34:51 AM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/tool.tcl (modified) (1 diff)

trunk/gui/scripts/tool.tcl

@@ -204 +204 @@
                 -output ::Rappture::Tool::job(output) \
                 -error ::Rappture::Tool::job(error) $cmd} result]
-        }
+            if { $status != 0 } {
+                foreach {code pid mesg} $::Rappture::Tool::job(control) break
+                if { $code != "EXITED" } {
+                    set result "Abnormal program termination \"$code\": $mesg"
+                    return [list $status $result]
+                }
+            }
+        }
         # ...job is finished
         array set times [Rappture::rusage measure]