Changeset 2742 for branches/blt4/gui/scripts/tool.tcl

Timestamp:

Dec 27, 2011 12:41:24 PM (12 years ago)

Author:

gah

Message:

sync with trunk

File:

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

branches/blt4/gui/scripts/tool.tcl

@@ -206 +206 @@
 
             if { $status != 0 } {
-                foreach {pstatus pid mesg} $::Rappture::Tool::job(control) break
-                if { $pstatus != "EXITED" } {
-                    set result "Abnormal program termination \"$pstatus\": $mesg"
+                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]
+
         if {[resources -jobprotocol] != "submit"} {
             set id [$_xmlobj get tool.id]