X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=9a5f45da207b69df499ce7655cd0737864ad5fcf;hb=59e7157e3e342e629b1badcf1ba7d992b58a5caf;hp=028f2cb04fa6c2f679f794ef5012462e83dea6fa;hpb=b2dfa977515995b8ab19611b88cfc999ad78591b;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 028f2cb0..9a5f45da 100644
--- 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) {