From 3525b8b90ab568e06f57d12c4c3ad9610b9e71f9 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Sat, 11 Jul 2020 11:23:50 +0100 Subject: [PATCH] remove '#' in bands.pl !!!!!! --- Changes | 2 ++ data/bands.pl | 4 ++-- perl/Spot.pm | 2 +- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Changes b/Changes index b76642bf..840e34a7 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +11Jul20======================================================================= +1. Fix (embarrassing) gratuitous '#'s in bands.pl 10Jul20======================================================================= 1. Fix console.pl permissions problem when running as another user not in debug mode. Console.pl WILL NOT WORK in debug mode unless it is running diff --git a/data/bands.pl b/data/bands.pl index 2c47f8c2..7ea4a611 100644 --- a/data/bands.pl +++ b/data/bands.pl @@ -203,9 +203,9 @@ %regions = ( vlf => [qw( 73khz 136khz 500khz )], - # hf => [qw( 160m 80m 60m 40m 30m 20m 17m 15m 12m 10m )], + hf => [qw( 160m 80m 60m 40m 30m 20m 17m 15m 12m 10m )], contesthf => [qw( 160m 80m 40m 20m 15m 10m )], - # vhf => [qw( 6m 4m 2m 220 )], + vhf => [qw( 6m 4m 2m 220 )], vhfradio => [qw( band1 band2 )], vhftv => [qw( band1 band3 )], uhf => [qw( 70cm 23cm )], diff --git a/perl/Spot.pm b/perl/Spot.pm index 3bfee12a..9fcf3280 100644 --- a/perl/Spot.pm +++ b/perl/Spot.pm @@ -89,7 +89,7 @@ sub decodefreq foreach $f (@f) { my ($a, $b); - if (m{^\d+/\d+$}) { + if ($f =~ m{^\d+/\d+$}) { push @out, $f; } elsif (($a, $b) = $f =~ m{^(\w+)(?:/(\w+))?$}) { $b = lc $b if $b; -- 2.43.0