move ganerated stuff to local_data

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 9a5f45da207b69df499ce7655cd0737864ad5fcf..fd361ebaaa178865211561087c26ae47eb7bf6d2 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -72,7 +72,8 @@ sub load
        # tie the main prefix database
        eval {$db = tie(%pre, "DB_File", undef, O_RDWR|O_CREAT, 0664, $DB_BTREE);};
        my $out = "$@($!)" if !$db || $@ ;
-       eval {do "$main::data/prefix_data.pl" if !$out; };
+       my $fn = localdata("prefix_data.pl");
+       eval {do $fn if !$out; };
        $out .= $@ if $@;
        $lru = LRU->newbase('Prefix', $lrusize);
 
@@ -88,7 +89,7 @@ sub store
 {
        my ($k, $l);
        my $fh = new IO::File;
-       my $fn = "$main::data/prefix_data.pl";
+       my $fn = localdata("prefix_data.pl");
   
        confess "Prefix system not started" if !$db;
   
@@ -442,7 +443,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;