From 3d30a11dd587137117eac1f5b9afc70e22ebbdc8 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 22 Nov 2002 07:20:02 +0000
Subject: [PATCH] fix for new perl

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@686 c11ca15a-4712-0410-83d8-924469b57eb5
---
 scripts/parse_warn.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scripts/parse_warn.pl b/scripts/parse_warn.pl
index dca9384..53a224c 100755
--- 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
-- 
2.39.5