X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=4d87be3723e2317d8b7d6718da37dd9bfb66ed55;hb=72a13d681ce2472bd4e036676ed89c0c91342eaf;hp=5ea169f2f48021be9b6d37224feb32dc7737e63e;hpb=39fdcabad4526f3a80c27f972f1909cc49eb35e4;p=spider.git

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 5ea169f2..4d87be37 100644
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -407,6 +407,7 @@ sub dup
 		}
 	}
 	my $otext = $text;
+	$text =~ s/^\+\w+\s*//;			# remove leading LoTW callsign
 	$text = pack("C*", map {$_ & 127} unpack("C*", $text));
 	$text =~ s/\s{2,}[\dA-Z]?[A-Z]\d?$// if length $text > 24;
 	$text =~ s/[^\w]//g;