Changeset 9483 for trunk/ippScripts/scripts/detrend_norm_exp.pl

Timestamp:

Oct 10, 2006, 5:49:35 PM (20 years ago)

Author:

Paul Price

Message:

Adding parens to suppress warnings.

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -105 +105 @@
 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};