projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
slug the not here messages so they can't loopback
[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
$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(
# build up eval to execute
$eval = qq(