--- a/common/tools/brag/logToBRAG.pl	Mon Oct 05 09:44:59 2009 +0100
+++ b/common/tools/brag/logToBRAG.pl	Fri Oct 02 16:19:09 2009 +0100
@@ -88,7 +88,7 @@
 }	
 
 # Iterate through all the lines of all the files in @ARGV
-foreach my $line (<>)
+while (my $line = <>)
 {
 	chomp $line;
 	foreach my $rule (@rules)