X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=fd361ebaaa178865211561087c26ae47eb7bf6d2;hb=abbcfa7500858a2eba4135b0af5db9f3fca8d68e;hp=028f2cb04fa6c2f679f794ef5012462e83dea6fa;hpb=e044603c96073a6b5e4517d55a7ab48819196439;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 028f2cb0..fd361eba 100644
--- 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;
   
@@ -170,6 +171,7 @@ sub next
 sub lru_put
 {
 	my ($call, $ref) = @_;
+	$call =~ s/^=//;
 	my @s = USDB::get($call);
 	
 	if (@s) {
@@ -441,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;