remove ssids in match

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 0e67801d9e8f10ce494db023877ab5abcf67a439..ef748b6722b32406c7a918dc36a67566d0e42dfb 100644 (file)
--- 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);