X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=9d534ae9d1835f6b2eaaeb4ab6b0fc33a2378260;hb=ed104958bdcae57f6147b07eb3ebdaddf44908cf;hp=58cb1afcabf39b5abd6c4ab0f2d4483a2d41fcd0;hpb=6975c4b4c8b210af067efab767bc1656786f70f2;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 58cb1afc..9d534ae9 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -192,7 +192,7 @@ sub encode my $dd = new Data::Dumper([$self]); $dd->Indent(0); $dd->Terse(1); - $dd->Quotekeys(0); + $dd->Quotekeys($] < 5.005 ? 1 : 0); return $dd->Dumpxs; }