new bands.pl and Spot deduping

[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')) {
-                       $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;
                }