--- a/common/tools/analysis/merge_csv.pl	Mon Jun 01 17:05:47 2009 +0100
+++ b/common/tools/analysis/merge_csv.pl	Mon Jun 01 17:19:32 2009 +0100
@@ -32,8 +32,8 @@
         my %ziptimes;
         if(defined $zipfile)
           {
-          open(ZIP,"7z l $zipfile 2>&1|")  or die "Error: Couldn't look in $zipfile\n";
-#          print "time,file\n";
+          open(ZIP,"7za l $zipfile 2>&1|")  or die "Error: Couldn't look in $zipfile\n";
+          #print "time,file\n";
           while( my $line = <ZIP>)
             {
             if($line =~ m/^(\d{4}-\d{2}-\d{2}\s+\d{2}:\d{2}:\d{2})\s\S{5}\s+(\d+)\s+\d+\s+(.+)$/) #ignoring packed size...
@@ -44,7 +44,7 @@
               $name =~ s/\\/\//g;
               $name = lc($name);
               $ziptimes{$name} = $time;
-#              print "$time,$name\n";
+              #print "$time,$name\n";
               }
             }
           close ZIP;