X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;fp=perl%2FSpot.pm;h=316eb4b9be4f78484989480cda8b3a17554f084a;hb=17d726014561756adf9fa40a68940bcd88e5f7b3;hp=3012c9e968f4c36b958763b78baa15e6d511b4d5;hpb=37a9324302cb4de2c25ce0005d697fd9895ea8cd;p=spider.git diff --git a/perl/Spot.pm b/perl/Spot.pm index 3012c9e9..316eb4b9 100644 --- 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; }