Changeset 27180 for trunk/ippScripts/scripts/detrend_resid_imfile.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_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_resid_imfile.pl

@@ -138 +138 @@
                   'DOMEFLAT_RAW'     => 'PPIMAGE.OUTPUT.DETREND',
                   'SKYFLAT_RAW'      => 'PPIMAGE.OUTPUT.DETREND',
-                  'SKYFLATTEST_RAW'  => 'PPIMAGE.OUTPUT.DETREND',
+                  'SKYFLATTEST_RAW'  => 'PPIMAGE.OUTPUT.DETREND',
                   'FLAT'             => 'PPIMAGE.OUTPUT.DETREND',
                   'DOMEFLAT'         => 'PPIMAGE.OUTPUT.DETREND',
@@ -190 +190 @@
     }
 
-    &my_die("Couldn't find expected output file: $outputName", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputName);
-    &my_die("Couldn't find expected output file: $bin1Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($bin1Name);
-    &my_die("Couldn't find expected output file: $bin2Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($bin2Name);
+    &my_die("Couldn't find expected output file: $outputName", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputName);
+    &my_die("Couldn't find expected output file: $bin1Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin1Name);
+    &my_die("Couldn't find expected output file: $bin2Name", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($bin2Name);
 
     my $outputStatsReal = $ipprc->file_resolve($outputStats);
-    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputStatsReal;
+    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal);
 
     # ppStatsFromMetadata $outputStats - DETREND_RESID_IMFILE