fixed duplicate spot, always make clean ending

[spider.git] / perl / QSL.pm

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