Changeset 11455 for trunk/ippScripts/scripts/detrend_reject_imfile.pl
- Timestamp:
- Jan 30, 2007, 3:42:50 PM (19 years ago)
- File:
-
- 1 edited
-
trunk/ippScripts/scripts/detrend_reject_imfile.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ippScripts/scripts/detrend_reject_imfile.pl
r11394 r11455 75 75 run(command => $command, verbose => 1); 76 76 unless ($success) { 77 $error_code = $error_code >> 8;77 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 78 78 warn("Unable to perform dettool -residimfile: $error_code\n"); 79 79 exit($error_code); … … 129 129 run(command => $command, verbose => 1); 130 130 unless ($success) { 131 $error_code = $error_code >> 8;131 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 132 132 &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code); 133 133 } … … 141 141 run(command => $command, verbose => 1); 142 142 unless ($success) { 143 $error_code = $error_code >> 8;143 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 144 144 &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code); 145 145 } … … 278 278 run(command => $command, verbose => 1); 279 279 unless ($success) { 280 $error_code = $error_code >> 8;280 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR); 281 281 warn("Unable to perform dettool -addresidexp: $error_code\n"); 282 282 exit($error_code);
Note:
See TracChangeset
for help on using the changeset viewer.
