From 982fcb125d274c2765def7261ee4a793396806f4 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 29 Sep 2002 00:53:30 +0000
Subject: [PATCH] remove ssids in match

---
 perl/Prefix.pm | 1 +
 1 file changed, 1 insertion(+)

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