fix more warnings

[infobot.git] / src / logger.pl

diff --git a/src/logger.pl b/src/logger.pl
index ad4efa53a4dd9979548eb96272c387a1af20eb8c..3e159ae3390cfe8646a38743da7247dea6956e83 100644 (file)
--- a/src/logger.pl
+++ b/src/logger.pl
@@ -191,7 +191,7 @@ sub status {
 
     if ($input eq $logold) {
        # allow perl flooding
-       $logrepeat++ unless (/!WARN! PERL: Use of uninitialized/);
+       $logrepeat++ unless ($input =~ /PERL: Use of uninitialized/);
 
        # todo: prevent massive repetitive throttling.
        if ($logrepeat >= 3) {