X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=852a3bda04d9145cb406c799bdc78c3d4b264650;hb=b29626c537438016f7221c667628d5e49b9f4fce;hp=92ce5249051480710fe009aeb1c81feab51bbb28;hpb=efe672a9629651117e499b23065afcb981e5083d;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 92ce5249..852a3bda 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -502,9 +502,9 @@ sub dup
 	$text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24;
 	$text =~ s/[\W\x00-\x2F\x7B-\xFF]//g; # tautology, just to make quite sure!
 	$text = substr($text, 0, $duplth) if length $text > $duplth; 
-	my $ldupkey = "X$|$call|$by|$node|$freq|$d||$text";
+	my $ldupkey = "X$|$call|$by|$node|$freq|$d|$text";
 	my $t = DXDupe::find($ldupkey);
-	return $ldupkey if $t && $t - $main::systime > 0;
+	return 1 if $t && $t - $main::systime > 0;
 	
 	DXDupe::add($ldupkey, $main::systime+$dupage);
 	$otext = substr($otext, 0, $duplth) if length $otext > $duplth;