From 8ebfb28af6e8ec81acbd7de0f5e19fab4c32a8b6 Mon Sep 17 00:00:00 2001 From: djk Date: Thu, 18 Nov 1999 22:46:15 +0000 Subject: [PATCH] removed more 5.004 ambiguities including making the format of data dumpered stuff dependant on version --- perl/DXCommandmode.pm | 2 +- perl/DXUser.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm index 92eaa46c..c516dc48 100644 --- 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 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; } -- 2.43.0