Changeset 10297 for trunk/ippScripts/scripts/detrend_norm_calc.pl

Timestamp:

Nov 29, 2006, 2:15:42 PM (20 years ago)

Author:

Paul Price

Message:

Fixing fix.

File:

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

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -66 +66 @@
     run \@command, \$stdin, \$stdout, \$stderr or
         die "Unable to perform dettool -processedimfile on detrend $detId/$iter: $?";
-    print $stdout . "\n";
+#    print $stdout . "\n";
     
     # Because of the length, need to split into individual metadatas --- it parses SO much quicker!
@@ -79 +79 @@
             my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) ) or
                 die "Unable to parse output from dettool.\n";
-            push @files, $list;
+            push @files, @$list;
+            @single = ();
         }
     }