Changeset 6208 for trunk/lang/tcl/scripts/task.tcl

Timestamp:

Mar 24, 2016, 7:45:25 AM (9 years ago)

Author:

ldelgass

Message:

Fix error reporting if puq get_params fails (debug file might be missing)

File:

• trunk/lang/tcl/scripts/task.tcl (modified) (1 diff)

trunk/lang/tcl/scripts/task.tcl

@@ -668 +668 @@
     set pid [pid]
     # puts "puq.sh get_params $pid $varlist $uq_type $uq_args"
-    if {[catch {exec puq.sh get_params $pid $varlist $uq_type $uq_args}]} {
-        set fp [open "uq_debug.err" r]
-        set rdata [read $fp]
-        close $fp
-        puts "get_params.py failed: $rdata"
-        error "get_params.py: $rdata"
+    if { [catch {
+        exec puq.sh get_params $pid $varlist $uq_type $uq_args
+    } errs] != 0 } {
+        set contents {}
+        if { [file exists "uq_debug.err"] } {
+            set fp [open "uq_debug.err" r]
+            set contents [read $fp]
+            close $fp
+        }
+        puts "get_params.py failed: $errs\n$contents"
+        error "get_params.py failed: $errs\n$contents"
     }
     return params[pid].csv