try to fill the cache better

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 484f462ac24feee8bc338acedd703c79207de3df..3fdcdceaf8aa1823b43dedd01d3cbfb297fc28d0 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);
@@ -169,7 +170,7 @@ sub matchprefix
                                dbg("Partial prefix: $pref $s $part" );
                        } 
                        if (@out && $out[0] eq $s) {
-                               $cache{$_} = [ @out ] for @partials;
+                               $cache{$_} =  \@out for @partials;
                                return @out;
                        } 
                }