Changeset 17165 for branches/pap_branch_080320/ippScripts/scripts/detrend_stack.pl

Timestamp:

Mar 27, 2008, 5:11:57 PM (18 years ago)

Author:

Paul Price

Message:

Fixing syntax error.
Need to resolve filename before passing to tempfile().

File:

• branches/pap_branch_080320/ippScripts/scripts/detrend_stack.pl (modified) (2 diffs)

branches/pap_branch_080320/ippScripts/scripts/detrend_stack.pl

@@ -93 +93 @@
                   'FRINGE'   => 'PPMERGE.OUTPUT.FRINGE',
               };
-my $output_filerule = $FILERULES{$det_type}; # File rule for output
+my $output_filerule = $FILERULES->{$det_type}; # File rule for output
 &my_die("Unrecognised detrend type: $det_type", $det_id, $iter, $class_id, $PS_EXIT_SYS_ERROR) unless defined $output_filerule;
 
@@ -128 +128 @@
 
 # Generate MDC file with the inputs
-my ($listFile, $listName) = tempfile( "$outroot.$class_id.list.XXXX", UNLINK => !$save_temps );
+my ($listFile, $listName) = tempfile( $ipprc->file_resolve("$outroot.$class_id.list.XXXX"), UNLINK => !$save_temps );
 my $num = 0;
 foreach my $file (@$files) {