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

[spider.git] / perl / Spot.pm

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;