removed more 5.004 ambiguities including making the format of data

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 50cb4796d1e732df106071de8179947201c6c5b4..9d534ae9d1835f6b2eaaeb4ab6b0fc33a2378260 100644 (file)
--- 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;
 }
 
@@ -354,5 +354,10 @@ sub wantdx
        return _want('dx', @_);
 }
 
+sub wanttalk
+{
+       return _want('talk', @_);
+}
+
 1;
 __END__