fix for new perl

[infobot.git] / scripts / parse_warn.pl

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