From: minima <minima>
Date: Sun, 29 Sep 2002 00:53:30 +0000 (+0000)
Subject: remove ssids in match
X-Git-Tag: PRE-1-52~184
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=982fcb125d274c2765def7261ee4a793396806f4;p=spider.git

remove ssids in match
---

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 0e67801d..ef748b67 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -148,6 +148,7 @@ sub matchprefix
 	my $pref = shift;
 	my @partials;
 
+	$pref =~ s/-\d+$//;
 	for (my $i = length $pref; $i; $i--) {
 		$matchtotal++;
 		my $s = substr($pref, 0, $i);