fix long callsign checking

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index b5d560115dc5dd2f7b1502e436df399f83862d32..8e8f7fd06ea7f29941ea746d2359432540a836e1 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -299,7 +299,7 @@ sub dup
        return 2 if $d < $main::systime - $dupage;
  
        $freq = sprintf "%.1f", $freq;       # normalise frequency
-       $call = substr($call, 12) if length $call > 12;
+       $call = substr($call, 0, 12) if length $call > 12;
        chomp $text;
        $text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
        $text = substr($text, 0, $duplth) if length $text > $duplth;