From 1798b0f045dc31b8c1b32ebe3aadb4aca46eefe8 Mon Sep 17 00:00:00 2001
From: minima <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.34.1