projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
made the \r\n work correctly in external input
[spider.git]
/
perl
/
DXLogPrint.pm
diff --git
a/perl/DXLogPrint.pm
b/perl/DXLogPrint.pm
index 58f18ffdd7604eae03239eb7fb48cbecbb793270..6d37cb415d16ddfba84d481aa69055e881f653d2 100644
(file)
--- a/
perl/DXLogPrint.pm
+++ b/
perl/DXLogPrint.pm
@@
-37,12
+37,10
@@
sub print
my $count;
my $hint = "";
my $count;
my $hint = "";
- $search = '1' unless $pattern || $who;
if ($pattern) {
if ($pattern) {
- $search = "\$ref->[1] =~ m{$pattern}i";
+ $search = "\$ref->[1] =~ m{
^
$pattern}i";
$hint = "m{$pattern}i";
}
$hint = "m{$pattern}i";
}
-
if ($who) {
if ($search) {
$search .= ' && ';
if ($who) {
if ($search) {
$search .= ' && ';
@@
-52,6
+50,7
@@
sub print
$hint .= 'm{$who}i';
}
$hint = "next unless $hint" if $hint;
$hint .= 'm{$who}i';
}
$hint = "next unless $hint" if $hint;
+ $search = "1" unless $search;
$eval = qq(
\@in = ();
$eval = qq(
\@in = ();