projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add some data::dumper tidying up.
[spider.git]
/
perl
/
DXUser.pm
diff --git
a/perl/DXUser.pm
b/perl/DXUser.pm
index 413d56a6446c6678b779498498ef4bfd56146ef9..bca3b1dab70c7ea8ed7b2d1b01dbd6c75728d7d5 100644
(file)
--- a/
perl/DXUser.pm
+++ b/
perl/DXUser.pm
@@
-329,11
+329,7
@@
sub decode
sub asc_encode
{
my $self = shift;
sub asc_encode
{
my $self = shift;
- my $dd = new Data::Dumper([$self]);
- $dd->Indent(0);
- $dd->Terse(1);
- $dd->Quotekeys($] < 5.005 ? 1 : 0);
- return $dd->Dumpxs;
+ return dd($self);
}
#
}
#
@@
-343,6
+339,7
@@
sub asc_decode
{
my $s = shift;
my $ref;
{
my $s = shift;
my $ref;
+ $s =~ s/\%([0-9A-F][0-9A-F])/chr(hex($1))/eg;
eval '$ref = ' . $s;
if ($@) {
LogDbg('err', $@);
eval '$ref = ' . $s;
if ($@) {
LogDbg('err', $@);