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