Changeset 19818 for trunk/ippScripts/scripts/detrend_resid_exp.pl

Timestamp:

Oct 2, 2008, 7:52:22 AM (18 years ago)

Author:

eugene

Message:

add processing comment

File:

• trunk/ippScripts/scripts/detrend_resid_exp.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_resid_exp.pl

@@ -122 +122 @@
     # since I can't figure out how to do input and output within PERL, I'm writing to a temp file
     my ($statFile, $statName) = tempfile( "/tmp/$exp_tag.detresid.$det_id.$iter.stats.XXXX", UNLINK => !$save_temps );
+    print "saving stats to $statName\n";
     foreach my $line (@$stdout_buf) {
         print $statFile $line;
@@ -139 +140 @@
         $cmdflags .= " $line";
     }
-    print "cmdflags: $cmdflags\n";
 }