fixed fast log printing

[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 = "";
            
-       $search = '1' unless $pattern || $who;
        if ($pattern) {
-               $search = "\$ref->[1] =~ m{$pattern}i";
+               $search = "\$ref->[1] =~ m{^$pattern}i";
                $hint = "m{$pattern}i";
        }
-
        if ($who) {
                if ($search) {
                        $search .= ' && ';
@@ -52,6 +50,7 @@ sub print
                $hint .= 'm{$who}i';
        }
        $hint = "next unless $hint" if $hint;
+       $search = "1" unless $search;
        
        $eval = qq(
                           \@in = ();