projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
new style DXUsers memory layout
[spider.git]
/
perl
/
QSL.pm
diff --git
a/perl/QSL.pm
b/perl/QSL.pm
index 0df7570ba24f615ac1fccce38cde2d59955588ca..67bffc3252004e44631fd3efb3d017e94ef7f16c 100644
(file)
--- a/
perl/QSL.pm
+++ b/
perl/QSL.pm
@@
-13,32
+13,22
@@
use DXUtil;
use DB_File;
use DXDebug;
use Prefix;
use DB_File;
use DXDebug;
use Prefix;
+use JSON;
use vars qw($qslfn $dbm $maxentries);
$qslfn = 'qsl';
$dbm = undef;
$maxentries = 50;
use vars qw($qslfn $dbm $maxentries);
$qslfn = 'qsl';
$dbm = undef;
$maxentries = 50;
-localdata_mv("$qslfn.v
1
");
+localdata_mv("$qslfn.v
2
");
sub init
{
my $mode = shift;
sub init
{
my $mode = shift;
- my $ufn = localdata("$qslfn.v
1
");
+ my $ufn = localdata("$qslfn.v
2
");
Prefix::load() unless Prefix::loaded();
Prefix::load() unless Prefix::loaded();
- eval {
- require Storable;
- };
-
- if ($@) {
- dbg("Storable appears to be missing");
- dbg("In order to use the QSL feature you must");
- dbg("load Storable from CPAN");
- return undef;
- }
- import Storable qw(nfreeze freeze thaw);
my %u;
undef $dbm;
if ($mode) {
my %u;
undef $dbm;
if ($mode) {