Changeset 11455 for trunk/ippScripts/scripts/detrend_reject_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_reject_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -66 +66 @@
         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 -residexp: $error_code", $det_id, $iter, $error_code);
     }
@@ -189 +189 @@
             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 -updateresidexp: $error_code", $det_id, $iter, $error_code);
         }
@@ -227 +227 @@
         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 -adddetrunsummary: $error_code");
         exit($error_code);
@@ -247 +247 @@
         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 -updatedetrun: $error_code");
         exit($error_code);