X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=blobdiff_plain;f=perl%2FQSL.pm;h=3d228d39685992166ec292c8b42a3c221b362ec4;hp=d8a75c7f9d78441839642d79e89672b9d6defef9;hb=770092d94f96b6d22a38fb33e0056b4779a8a1ab;hpb=12f4f4b66f10e158d0ed551f619356c787468567

diff --git a/perl/QSL.pm b/perl/QSL.pm
index d8a75c7f..3d228d39 100644
--- a/perl/QSL.pm
+++ b/perl/QSL.pm
@@ -135,4 +135,9 @@ sub put
 	$dbm->put($key, $value);
 }
 
+sub active
+{
+	return $dbm;
+}
+
 1;