Changeset 11319 for trunk/ippScripts/scripts/detrend_reject_imfile.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_imfile.pl (modified) (6 diffs)

trunk/ippScripts/scripts/detrend_reject_imfile.pl

@@ -35 +35 @@
            'camera=s'          => \$camera,
            'filter=s'          => \$filter,
-           'reject'            => \$reject
+           'reject'            => \$reject,
            'dbname|d=s'        => \$dbname, # Database name
            'workdir|w=s'       => \$workdir, # Working directory, for output files
@@ -75 +75 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -residimfile: $error_code\n");
         exit($error_code);
@@ -125 +125 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code);
     }
@@ -137 +137 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_tag, $error_code);
     }
@@ -274 +274 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -addresidexp: $error_code\n");
         exit($error_code);
@@ -300 +300 @@
 
     warn($msg);
-    if ($det_id and $iteration and $exp_tag) {
+    if ($det_id and $iter and $exp_tag) {
         my $command = "$dettool -addresidexp -det_id $det_id -iteration $iter -exp_tag $exp_tag -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;