X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FSpot.pm;h=4d87be3723e2317d8b7d6718da37dd9bfb66ed55;hb=c73656f021da086e9d1b3ca51e048447e8a7fed4;hp=5ea169f2f48021be9b6d37224feb32dc7737e63e;hpb=20efba5d5f656113144785e0ef84296e6d2c2e69;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;