Changeset 6133 for branches/1.6/lang

Timestamp:

Mar 16, 2016, 10:53:18 PM (9 years ago)

Author:

ldelgass

Message:

Reapply fix from trunk r6111 (GetSignal? requires argument)

File:

• branches/1.6/lang/tcl/scripts/task.tcl (modified) (3 diffs)

branches/1.6/lang/tcl/scripts/task.tcl

@@ -144 +144 @@
     set sigNum [expr $code - 128]
     if { $sigNum > 0 && $sigNum < [llength $signals] } {
-        return [lindex $signals $sigNum]
+        return [lindex $signals $sigNum]
     }
     return "unknown exit code \"$code\""
@@ -473 +473 @@
 itcl::body Rappture::Task::GetParamsForUQ {} {
     set pid [pid]
-    # puts "get_params.py $pid $_uq(varlist) $_uq(type) $_uq(args)"
+    # puts "puq get_params $pid $_uq(varlist) $_uq(type) $_uq(args)"
     if {[catch {
         exec puq get_params $pid $_uq(varlist) $_uq(type) $_uq(args)
@@ -614 +614 @@
             # non-zero exitcode.  Consider this an invalid result from the
             # program.  Append the stderr from the program to the message.
-            
             if {$code > 128} {
-                set logmesg "Program signaled: signal was [GetSignal]"
+                set logmesg "Program signaled: signal was [GetSignal $code]"
             } else { 
                 set logmesg "Program finished: non-zero exit code is $code"