--- a/common/tools/analysis/parsewhatlog.pl	Mon Jun 15 14:34:28 2009 +0100
+++ b/common/tools/analysis/parsewhatlog.pl	Mon Jun 15 14:44:46 2009 +0100
@@ -48,7 +48,8 @@
 sub main()
 {
   my $path = shift @ARGV;
-  my @files = glob($path."/*whatlog*WHAT_*compile.log"); 
+#  my @files = glob($path."/*whatlog*WHAT_*compile.log");
+  my @files = glob($path."/*whatlog*_*compile.log"); 
   foreach my $filename (@files)
   {
 #    print $filename."\n";
@@ -70,7 +71,7 @@
   while(my $line = <FILE>)
   {
     ++$linecount;
-    if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S*'>/) #brittle
+    if($line =~ m/^<whatlog bldinf='(\S+)' mmp='(\S*)' config='\S+'>/) #brittle
     {
       $bldinf = $1;
       $makefile = $2;