projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add better new user logging in PC92/PC19
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 3012c9e968f4c36b958763b78baa15e6d511b4d5..316eb4b9be4f78484989480cda8b3a17554f084a 100644
(file)
--- a/
perl/Spot.pm
+++ b/
perl/Spot.pm
@@
-549,7
+549,7
@@
sub dup
$t = DXDupe::find($ldupkey);
dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'") if isdbg('spotdup');
if (isdbg('spottext')) {
$t = DXDupe::find($ldupkey);
dbg("Spot::dup (OTEXT) ldupkey $ldupkey t '$t'") if isdbg('spotdup');
if (isdbg('spottext')) {
- $dtext .= sprintf q{DUBIOUS '%s'}, join '', @dubious if @dubious;
+ $dtext .= sprintf q{
DUBIOUS '%s'}, join '', @dubious if @dubious;
$dtext .= ' DUPE (OTEXT)' if $t;
dbg("text transforms: $dtext") if length $text;
}
$dtext .= ' DUPE (OTEXT)' if $t;
dbg("text transforms: $dtext") if length $text;
}