Fix slots around the time

[spider.git] / perl / DXLogPrint.pm

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 0d99eb41804a740a9d0e95a18c13cabdf2a93b36..244402d6962493e685edb147cd734e83427284f3 100644 (file)
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -60,7 +60,7 @@ sub print
        }
        if ($who) {
                $hint .= ' && ' if $hint;
-               $hint .= q{m{\Q$who\E}oi};
+               $hint .= q{m{\Q$who\E}i};
        } 
        $hint = "next unless $hint" if $hint;
        $hint .= "; next unless m{^\\d+\\^$pattern\\^}" if $pattern;