remove ssids in different place

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index ef748b6722b32406c7a918dc36a67566d0e42dfb..072df9eeea824cdf154b9eec39520d0ec8d24ffb 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -148,7 +148,6 @@ sub matchprefix
        my $pref = shift;
        my @partials;
 
-       $pref =~ s/-\d+$//;
        for (my $i = length $pref; $i; $i--) {
                $matchtotal++;
                my $s = substr($pref, 0, $i);
@@ -211,6 +210,7 @@ LM: foreach $call (split /,/, $calls) {
                # first check if the whole thing succeeds either because it is cached
                # or because it simply is a stored prefix as callsign (or even a prefix)
                $matchtotal++;
+               $call =~ s/-\d+$//;             # ignore SSIDs
                my $p = $cache{$call};
                my @nout;
                if ($p) {