removed more 5.004 ambiguities including making the format of data

dumpered stuff dependant on version

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 92eaa46cbb3bcba82edb0db6b355de730852f9af..c516dc489049f85ee57d6cc0ae50671de48b666d 100644 (file)
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -525,7 +525,7 @@ sub find_cmd_name {
                        }
                }
                
-               $Cache{$package} = {mtime => $mtime, eval => $eval };
+               $Cache{$package} = {mtime => $mtime, 'eval' => $eval };
        }
 
        return $package;

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 58cb1afcabf39b5abd6c4ab0f2d4483a2d41fcd0..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;
 }