Index: trunk/ippScripts/scripts/detrend_norm_calc.pl
===================================================================
--- trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 10146)
+++ trunk/ippScripts/scripts/detrend_norm_calc.pl	(revision 10296)
@@ -58,5 +58,5 @@
 
 # Get the list of inputs
-my $files;			# The input files
+my @files;			# The input files
 {
     my $command = "$dettool -processedimfile -det_id $detId"; # Command to run
@@ -68,10 +68,19 @@
     print $stdout . "\n";
     
-    # Parse the output
-    my $metadata = $mdcParser->parse($stdout)
-        or die "unable to parse metadata config doc";
-    $files = parse_md_list($metadata);
+    # Because of the length, need to split into individual metadatas --- it parses SO much quicker!
+    my @whole = split /\n/, $stdout;
+    my @single = ();
+    while ( scalar @whole > 0 ) {
+	my $value = shift @whole;
+	push @single, $value;
+	if ($value =~ /^\s*END\s*$/) {
+	    push @single, "\n";
+
+	    my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) ) or
+		die "Unable to parse output from dettool.\n";
+	    push @files, $list;
+	}
+    }
 }
-
 
 my $norms;			# MDC with normalisations
@@ -79,5 +88,5 @@
 
     my %matrix; # Matrix of statistics as a function of exposures and classes
-    foreach my $file (@$files) {
+    foreach my $file (@files) {
 	my $expTag = $file->{'exp_tag'}; # Exposure ID
 	my $classId = $file->{'class_id'}; # Class ID
@@ -116,5 +125,5 @@
     # It's something that doesn't need normalisation --- just push in a normalisation of 1
     my %classes;		# List of unique classes
-    foreach my $file (@$files) {
+    foreach my $file (@files) {
 	my $classId = $file->{'class_id'}; # Class Id
 	$classes{$classId} = 1;