X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FQSL.pm;h=1fd7130bf049b92b94121de721cc7e85cdc1f2df;hb=8467e0bbd9951b6b2395e832c7f54f78f5fff8cc;hp=f62897bff61667086d98480f1aded750ce61a0ca;hpb=2733a992ac8c3d315c110a2cc1984ea0a5e5d0ff;p=spider.git diff --git a/perl/QSL.pm b/perl/QSL.pm index f62897bf..1fd7130b 100644 --- a/perl/QSL.pm +++ b/perl/QSL.pm @@ -120,6 +120,7 @@ sub get return decode($value); } + sub put { return unless $dbm;