use IO::File;
use DXVars;
-use DXDebug ();
+#use DXDebug ();
use DXUtil;
use DXLog;
use Julian;
-use Carp;
use strict;
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;