From 3525b8b90ab568e06f57d12c4c3ad9610b9e71f9 Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
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