From 1798b0f045dc31b8c1b32ebe3aadb4aca46eefe8 Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 29 Sep 2002 00:56:10 +0000 Subject: [PATCH] remove ssids in different place --- perl/Prefix.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/Prefix.pm b/perl/Prefix.pm index ef748b67..072df9ee 100644 --- 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) { -- 2.43.0