--- a/common/tools/analysis/find_collisions.pl	Tue Jun 09 16:12:42 2009 +0100
+++ b/common/tools/analysis/find_collisions.pl	Wed Jun 10 12:40:05 2009 +0100
@@ -21,7 +21,6 @@
 sub main()
 {
   my $csvfile = shift @ARGV;
-  my $filelist = shift @ARGV;
 
   if(! -e $csvfile)
   {

--- a/common/tools/analysis/parsewhatlog.pl	Tue Jun 09 16:12:42 2009 +0100
+++ b/common/tools/analysis/parsewhatlog.pl	Wed Jun 10 12:40:05 2009 +0100
@@ -70,7 +70,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;