Changeset 11319 for trunk/ippScripts/scripts/detrend_process_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_process_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -26 +26 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $camera, $bdname, $workdir, $no_update);
+my ($det_id, $exp_tag, $class_id, $det_type, $input_uri, $camera, $dbname, $workdir, $no_update);
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -103 +103 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform ppImage: $error_code", $det_id, $exp_tag, $class_id, $error_code);
     }
@@ -149 +149 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -addprocessedimfile: $error_code\n");
         exit($error_code);