X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FPrefix.pm;h=91f7c5cee44a3753cf90256ca565f007c16d033e;hb=d384410d4d5d1031cabab44350b80f2a55fe808d;hp=b43d9160085fc31c2a5500bdd22b0280f3dfed6f;hpb=03c2eda593235d8299fa285827d0caade6fe8fc1;p=spider.git

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index b43d9160..91f7c5ce 100644
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -85,6 +85,11 @@ sub load
  	return $out;
 }
 
+sub loaded
+{
+	return $db;
+}
+
 sub store
 {
 	my ($k, $l);