fix for new perl

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@686 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/scripts/parse_warn.pl b/scripts/parse_warn.pl
index dca93841cc51fd2a52d1ac5e6530a928663adc4b..53a224c45bf6d2881b92cb5bb69f4933e02e91cb 100755 (executable)
--- a/scripts/parse_warn.pl
+++ b/scripts/parse_warn.pl
@@ -21,7 +21,7 @@ foreach $file (@ARGV) {
        print "warning: $file does not exist.\n";
        next;
     }
-    my $str = ' value at .* line ';
+    my $str = ' at .* line ';
 
     print "Opening $file... ";
     if ($file =~ /bz2$/) {     # bz2