From 982fcb125d274c2765def7261ee4a793396806f4 Mon Sep 17 00:00:00 2001 From: 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.43.0