remove '#' in bands.pl !!!!!!

diff --git a/Changes b/Changes
index b76642bff687c730e1ea103eee6de71340dd6cf9..840e34a7d96b28deecf15de047558a8d25b22126 100644 (file)
--- 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 2c47f8c2186d86feb1b358a7f5138bf0a4a9308f..7ea4a61136136752439377e6307d9dc2694b6570 100644 (file)
--- 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 3bfee12a3ccb06355bd64d4700ce3f3f91b4547b..9fcf3280d95ad8359516ee58c26e168114bb6f78 100644 (file)
--- 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;