X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXLogPrint.pm;h=185912cda4948abefe7d3408da3d371651921417;hb=c20a2c1e01d707d6c3fa25067df93d491aba8fff;hp=60f8b685bb8768e3e935629aca988c2b0bcd2d06;hpb=b06a8b34356732ab544f4bba0102c5793b34e3d9;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 60f8b685..185912cd 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -37,9 +37,9 @@ sub print
 	my $count;
 	    
 	$search = '1' unless $pattern || $who;
-	$search = "\$ref->[1] =~ /$pattern/" if $pattern;
+	$search = "\$ref->[1] =~ /$pattern/i" if $pattern;
 	$search .= ' && ' if $pattern && $who;
-	$search .= "(\$ref->[2] =~ /$who/ || \$ref->[3] =~ /$who/)" if $who;
+	$search .= "(\$ref->[2] =~ /$who/i || \$ref->[3] =~ /$who/i)" if $who;
 	$eval = qq(
 			   my \$c;
 			   my \$ref;