From bca4b6588ad991fae127c4fc32692068fa266175 Mon Sep 17 00:00:00 2001 From: minima Date: Mon, 11 Jun 2007 10:27:14 +0000 Subject: [PATCH] truncate qrg for spot dupes --- perl/Spot.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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; -- 2.43.0