From: minima Date: Mon, 11 Jun 2007 10:27:14 +0000 (+0000) Subject: truncate qrg for spot dupes X-Git-Tag: 1.54~2 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=bca4b6588ad991fae127c4fc32692068fa266175;p=spider.git truncate qrg for spot dupes --- diff --git a/perl/Spot.pm b/perl/Spot.pm index 4d87be37..4f9f18ab 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -394,7 +394,8 @@ sub dup # remove SSID or area $by =~ s|[-/]\d+$||; - $freq = sprintf "%.1f", $freq; # normalise frequency +# $freq = sprintf "%.1f", $freq; # normalise frequency + $freq = int $freq; # normalise frequency $call = substr($call, 0, $maxcalllth) if length $call > $maxcalllth; chomp $text;