Changeset 11455 for trunk/ippScripts/scripts/detrend_process_exp.pl

Timestamp:

Jan 30, 2007, 3:42:50 PM (19 years ago)

Author:

Paul Price

Message:

Core dumps weren't being caught as errors. Now they are identified as programming errors.

File:

• trunk/ippScripts/scripts/detrend_process_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -70 +70 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code = $error_code >> 8;
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die("Unable to perform dettool -processedimfile: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -143 +143 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code = $error_code >> 8;
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -155 +155 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code = $error_code >> 8;
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -174 +174 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code = $error_code >> 8;
+        $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         warn("Unable to perform dettool -addprocessedexp: $error_code");
         exit($error_code);