X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=072df9eeea824cdf154b9eec39520d0ec8d24ffb;hb=1798b0f045dc31b8c1b32ebe3aadb4aca46eefe8;hp=ef748b6722b32406c7a918dc36a67566d0e42dfb;hpb=982fcb125d274c2765def7261ee4a793396806f4;p=spider.git

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) {