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

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -70 +70 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         &my_die("Unable to perform dettool -processedimfile: $error_code", $det_id, $exp_tag, $error_code);
     }
@@ -85 +85 @@
     my @variances;    # Array of variances for each component
     foreach my $file (@$files) {
-        &my_die("Unable to find class id", $det_id, $exp_tag, $PS_EXIT_SYS_ERRROR) unless defined $file->{class_id};
+        &my_die("Unable to find class id", $det_id, $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{class_id};
         my $class_id = $file->{class_id};
         &my_die("Unable to find bg for class_id=$class_id", $det_id, $exp_tag, $PS_EXIT_SYS_ERROR) unless defined $file->{bg};
@@ -141 +141 @@
         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, $error_code);
     }
@@ -153 +153 @@
         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, $error_code);
     }
@@ -172 +172 @@
         run(command => $command, verbose => 1);
     unless ($success) {
-        $error_code >> 8;
+        $error_code = $error_code >> 8;
         warn("Unable to perform dettool -addprocessedexp: $error_code");
         exit($error_code);