X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=8e83667898793142b80ae1ec3cc430f97f53f14a;hb=bf5eb90cfb12c5070db6726af98d1d464bdb4ea3;hp=8b66b0f6c762f78c398c230a64856a7ae89a621a;hpb=db7747a775a39ec1828fc78b9442f301ed32b195;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 8b66b0f6..8e836678 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -183,7 +183,7 @@ sub search
 	$expr =~ s/\$f(\d)/\$ref->[$1]/g; # swap the letter n for the correct field name
 	#  $expr =~ s/\$f(\d)/\$spots[$1]/g;               # swap the letter n for the correct field name
   
-	dbg("search", "hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n");
+	dbg("hint='$hint', expr='$expr', spotno=$from-$to, day=$dayfrom-$dayto\n") if isdbg('search');
   
 	# build up eval to execute
 	$eval = qq(