X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=244402d6962493e685edb147cd734e83427284f3;hb=ad222bb929a17f8ad54c567d4f59f68c5d1a8bbd;hp=0d99eb41804a740a9d0e95a18c13cabdf2a93b36;hpb=8c339125008c925eefda7c815ccabac9c577ae3f;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 0d99eb41..244402d6 100644
--- 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;