X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;fp=perl%2FPrefix.pm;h=ef748b6722b32406c7a918dc36a67566d0e42dfb;hb=982fcb125d274c2765def7261ee4a793396806f4;hp=0e67801d9e8f10ce494db023877ab5abcf67a439;hpb=0ede244fc4076f902584ee6d088cd7fd7fd2817f;p=spider.git

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