Changeset 17681 for trunk/ippScripts/scripts

Timestamp:

May 14, 2008, 12:30:35 PM (18 years ago)

Author:

bills

Message:

Pass --touch to file_resolve when resolving names for tempfiles

Location:

trunk/ippScripts/scripts

Files:

• detrend_stack.pl (modified) (1 diff)
• warp_skycell.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -121 +121 @@
 
 # Generate MDC file with the inputs
-my ($listFile, $listName) = tempfile( $ipprc->file_resolve("$outroot.$class_id.list.XXXX"), UNLINK => !$save_temps );
+my $temp_uri = $ipprc->file_resolve("$outroot.$class_id.list.XXXX", "--touch");
+my ($listFile, $listName) = tempfile( $temp_uri, UNLINK => !$save_temps );
 my $num = 0;
 foreach my $file (@$files) {

trunk/ippScripts/scripts/warp_skycell.pl

@@ -120 +120 @@
 
 # Get list of filenames
-my $outrootResolved = $ipprc->file_resolve( $outroot );
-my ($imageFile,  $imageName)  = tempfile( "$outrootResolved.image.list.XXXX",  UNLINK => !$save_temps);
-my ($maskFile,   $maskName)   = tempfile( "$outrootResolved.mask.list.XXXX",   UNLINK => !$save_temps);
-my ($weightFile, $weightName) = tempfile( "$outrootResolved.weight.list.XXXX", UNLINK => !$save_temps);
-my ($astromFile, $astromName) = tempfile( "$outrootResolved.astrom.list.XXXX", UNLINK => !$save_temps);
+my ($imageFile,  $imageName)  = tempfile( $ipprc->file_resolve("$outrootResolved.image.list.XXXX",  "--touch"), UNLINK => !$save_temps);
+my ($maskFile,   $maskName)   = tempfile( $ipprc->file_resolve("$outrootResolved.mask.list.XXXX",   "--touch"), UNLINK => !$save_temps);
+my ($weightFile, $weightName) = tempfile( $ipprc->file_resolve("$outrootResolved.weight.list.XXXX", "--touch"), UNLINK => !$save_temps);
+my ($astromFile, $astromName) = tempfile( $ipprc->file_resolve("$outrootResolved.astrom.list.XXXX", "--touch"), UNLINK => !$save_temps);
 
 my $wrote_astrom = 0;