Changeset 9365 for trunk/ippScripts/scripts/detrend_process_exp.pl

Timestamp:

Oct 6, 2006, 2:45:44 PM (20 years ago)

Author:

Paul Price

Message:

Avoiding warning.

File:

• trunk/ippScripts/scripts/detrend_process_exp.pl (modified) (1 diff)

trunk/ippScripts/scripts/detrend_process_exp.pl

@@ -101 +101 @@
 open my $list2File, '>' . $list2Name;
 foreach my $file (@$files) {
-    print $list1File File::Spec->rel2abs( $file->{b1_uri}, $ipprc->workdir() ) . "\n";
-    print $list2File File::Spec->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n";
+    print $list1File (File::Spec->rel2abs( $file->{b1_uri}, $ipprc->workdir() ) . "\n");
+    print $list2File (File::Spec->rel2abs( $file->{b2_uri}, $ipprc->workdir() ) . "\n");
     push @means, $file->{bg};
     push @stdevs, $file->{bg_stdev};