sub finish
{
- $dbm->sync;
+ dbg("DXQSL finished");
+ $dbm->sync if $dbm;
undef $dbm;
untie %u;
}
return decode($value);
}
+
sub put
{
return unless $dbm;
return $json->encode($_[0]);
}
+sub END
+{
+ if ($dbm) {
+ dbg "DXQSL ENDing";
+ finish();
+ }
+}
+
1;