X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;fp=perl%2FDXLogPrint.pm;h=6d37cb415d16ddfba84d481aa69055e881f653d2;hb=96461da2f857d65129b2e6acd19bd075984c31f1;hp=58f18ffdd7604eae03239eb7fb48cbecbb793270;hpb=97fa4618141c1e20858660a6732d94ea3f431dd9;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index 58f18ffd..6d37cb41 100644
--- 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 = ();