Changeset 11319 for trunk/ippScripts/scripts/detrend_reject_exp.pl

Timestamp:

Jan 26, 2007, 12:20:56 PM (19 years ago)

Author:

Paul Price

Message:

Fixing compilation errors.

File:

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

trunk/ippScripts/scripts/detrend_reject_exp.pl

@@ -65 +65 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform dettool -residexp: $error_code", $det_id, $iter, $error_code);
     }
@@ -188 +188 @@
             run(command => $command, verbose => 1);
         unless ($success) {
-            $error_code >> 8;
+            $error_code = $error_code >> 8;
             &my_die("Unable to perform dettool -updateresidexp: $error_code", $det_id, $iter, $error_code);
         }
@@ -226 +226 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -adddetrunsummary: $error_code");
         exit($error_code);
@@ -246 +246 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -updatedetrun: $error_code");
         exit($error_code);