now fix the REAL problem with Prefix::extract

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 028f2cb04fa6c2f679f794ef5012462e83dea6fa..53424e03e00e7e40cbae01f02e56f354b1b2cadf 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -170,6 +170,7 @@ sub next
 sub lru_put
 {
        my ($call, $ref) = @_;
+       $call =~ s/^=//;
        my @s = USDB::get($call);
        
        if (@s) {
@@ -441,7 +442,7 @@ L1:         for ($n = 0; $n < @parts; $n++) {
                }
 
                # we are a pirate!
-               @nout = matchprefix('Q');
+               @nout = matchprefix('QQ');
                $misses++;
                lru_put($call, \@nout);
                push @out, @nout;