projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
added some more filter help
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index b287413da9a511d7e5cb8e3863889c0228bde6d9..185912cda4948abefe7d3408da3d371651921417 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-10,11
+10,10
@@
package DXLog;
use IO::File;
use DXVars;
use IO::File;
use DXVars;
-use DXDebug ();
+
#
use DXDebug ();
use DXUtil;
use DXLog;
use Julian;
use DXUtil;
use DXLog;
use Julian;
-use Carp;
use strict;
use strict;
@@
-38,9
+37,9
@@
sub print
my $count;
$search = '1' unless $pattern || $who;
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 .= ' && ' 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;
$eval = qq(
my \$c;
my \$ref;