Changeset 11319 for trunk/ippScripts/scripts/detrend_norm_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_norm_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -8 +8 @@
 
 use IPC::Cmd qw( can_run run );
-use PS::IPP::Metadata::Config qw(
+use PS::IPP::Metadata::Config;
+use PS::IPP::Metadata::List qw( parse_md_list );
+use Statistics::Descriptive;
+
+use PS::IPP::Config qw(
     $PS_EXIT_SUCCESS
     $PS_EXIT_UNKNOWN_ERROR
@@ -17 +21 @@
     $PS_EXIT_TIMEOUT_ERROR
     );
-use PS::IPP::Metadata::List qw( parse_md_list );
-use Statistics::Descriptive;
-
-use PS::IPP::Config;
 my $ipprc = PS::IPP::Config->new(); # IPP configuration
 use File::Spec;
@@ -72 +72 @@
         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, $iter, $error_code);
     }
@@ -164 +164 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform dettool -addnormalizedexp: $error_code", $det_id, $iter, $error_code);
     }