projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix users delete? messages, local::pcprot()
[spider.git]
/
perl
/
QSL.pm
diff --git
a/perl/QSL.pm
b/perl/QSL.pm
index d10345eda2ebbf70166ca9c42d91beae4e1e9acc..1fd7130bf049b92b94121de721cc7e85cdc1f2df 100644
(file)
--- a/
perl/QSL.pm
+++ b/
perl/QSL.pm
@@
-13,7
+13,7
@@
use DXUtil;
use DB_File;
use DXDebug;
use Prefix;
use DB_File;
use DXDebug;
use Prefix;
-use JSON;
+use
DX
JSON;
use Data::Structure::Util qw(unbless);
use vars qw($qslfn $dbm $maxentries);
use Data::Structure::Util qw(unbless);
use vars qw($qslfn $dbm $maxentries);
@@
-31,7
+31,7
@@
sub init
my $mode = shift;
my $ufn = localdata("$qslfn.v1j");
my $mode = shift;
my $ufn = localdata("$qslfn.v1j");
- $json =
JSON->new->canonical(1)
;
+ $json =
DXJSON->new
;
Prefix::load() unless Prefix::loaded();
Prefix::load() unless Prefix::loaded();
@@
-120,6
+120,7
@@
sub get
return decode($value);
}
return decode($value);
}
+
sub put
{
return unless $dbm;
sub put
{
return unless $dbm;
@@
-138,27
+139,13
@@
sub remove_files
# thaw the user
sub decode
{
# thaw the user
sub decode
{
- my $s = shift;
- my $ref;
- eval { $ref = $json->decode($s) };
- if ($ref && !$@) {
- return bless $ref, 'QSL';
- }
- return undef;
+ return $json->decode($_[0], __PACKAGE__);
}
# freeze the user
sub encode
{
}
# freeze the user
sub encode
{
- my $ref = shift;
- unbless($ref);
- my $s;
-
- eval {$s = $json->encode($ref) };
- if ($s && !$@) {
- bless $ref, 'QSL';
- return $s;
- }
+ return $json->encode($_[0]);
}
1;
}
1;