limit spot dup checking to first 12 characters

[spider.git] / perl / Spot.pm

diff --git a/perl/Spot.pm b/perl/Spot.pm
index 9fa0086ffa1e5595978a4309638f08d38f61b8f5..b5d560115dc5dd2f7b1502e436df399f83862d32 100644 (file)
--- a/perl/Spot.pm
+++ b/perl/Spot.pm
@@ -299,6 +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;
        chomp $text;
        $text =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
        $text = substr($text, 0, $duplth) if length $text > $duplth;