projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
add the latest CTY data
[spider.git]
/
perl
/
Spot.pm
diff --git
a/perl/Spot.pm
b/perl/Spot.pm
index 5ea169f2f48021be9b6d37224feb32dc7737e63e..4d87be3723e2317d8b7d6718da37dd9bfb66ed55 100644
(file)
--- 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;