Changeset 27180 for trunk/ippScripts/scripts/detrend_resid_exp.pl

Timestamp:

Mar 3, 2010, 5:29:07 PM (16 years ago)

Author:

Paul Price

Message:

Using PS::IPP::Config->file_exists in favor of '-f'.

File:

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

trunk/ippScripts/scripts/detrend_resid_exp.pl

@@ -134 +134 @@
     foreach my $norm (@$normsMD) {
         my $class_id = $norm->{class_id};
-        my $normalization = 1.0 / $norm->{norm};
+        my $normalization = 1.0 / $norm->{norm};
 
         $norms{$class_id} = $normalization;
@@ -197 +197 @@
         # modify and save the data in this block:
         foreach my $data (@$mdComponents) {
-            my $norm = 1.0;
-            if ($det_mode eq "master") {
-                $norm = $norms{$class_id};
-            }
+            my $norm = 1.0;
+            if ($det_mode eq "master") {
+                $norm = $norms{$class_id};
+            }
 
             # fields to modify by the normalization:
@@ -272 +272 @@
         &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_id, $error_code);
     }
-    &my_die("Unable to find expected output file: $jpeg1Name", $det_id, $iter, $exp_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($jpeg1Name);
+    &my_die("Unable to find expected output file: $jpeg1Name", $det_id, $iter, $exp_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($jpeg1Name);
 
     # Make the jpeg for binning 2
@@ -287 +287 @@
         &my_die("Unable to run ppImage: $error_code", $det_id, $iter, $exp_id, $error_code);
     }
-    &my_die("Unable to find expected output file: $jpeg2Name", $det_id, $iter, $exp_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($jpeg2Name);
+    &my_die("Unable to find expected output file: $jpeg2Name", $det_id, $iter, $exp_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($jpeg2Name);
 }