Changeset 27180 for trunk/ippScripts/scripts/detrend_stack.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_stack.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -89 +89 @@
                   'DOMEFLAT_RAW'     => 'PPMERGE.OUTPUT.FLAT',
                   'SKYFLAT_RAW'      => 'PPMERGE.OUTPUT.FLAT',
-                  'SKYFLATTEST_RAW'  => 'PPMERGE.OUTPUT.FLAT',
+                  'SKYFLATTEST_RAW'  => 'PPMERGE.OUTPUT.FLAT',
                   'FLAT'             => 'PPMERGE.OUTPUT.FLAT',
                   'DOMEFLAT'         => 'PPMERGE.OUTPUT.FLAT',
@@ -114 +114 @@
                    'DOMEFLAT_RAW'     => 'DETSTATS',
                    'SKYFLAT_RAW'      => 'DETSTATS',
-                   'SKYFLATTEST_RAW'  => 'DETSTATS',
+                   'SKYFLATTEST_RAW'  => 'DETSTATS',
                    'FLAT'             => 'DETSTATS',
                    'DOMEFLAT'         => 'DETSTATS',
@@ -206 +206 @@
         &my_die("Unable to perform ppMerge: $error_code", $det_id, $iter, $class_id, $error_code);
     }
-    &my_die("Unable to find expected output file: $outputStack\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputStack);
-    &my_die("Unable to find expected output file: $outputCount\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputCount);
-    &my_die("Unable to find expected output file: $outputSigma\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $ipprc->file_resolve($outputSigma);
+    &my_die("Unable to find expected output file: $outputStack\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStack);
+    &my_die("Unable to find expected output file: $outputCount\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputCount);
+    &my_die("Unable to find expected output file: $outputSigma\n", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputSigma);
 
     my $outputStatsReal = $ipprc->file_resolve($outputStats);
-    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless -f $outputStatsReal;
+    &my_die("Couldn't find expected output file: $outputStats", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless $ipprc->file_exists($outputStatsReal);
 
     # parse stats from metadata