From: minima <minima>
Date: Sun, 29 Sep 2002 00:56:10 +0000 (+0000)
Subject: remove ssids in different place
X-Git-Tag: PRE-1-52~183
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=1798b0f045dc31b8c1b32ebe3aadb4aca46eefe8;p=spider.git

remove ssids in different place
---

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