changed debug api interface to use less CPU

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 8b66b0f6c762f78c398c230a64856a7ae89a621a..8e83667898793142b80ae1ec3cc430f97f53f14a 100644 (file)
--- 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(