From: djk <djk>
Date: Thu, 18 Nov 1999 22:46:15 +0000 (+0000)
Subject: removed more 5.004 ambiguities including making the format of data
X-Git-Tag: R_1_35~24
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ebfb28af6e8ec81acbd7de0f5e19fab4c32a8b6;p=spider.git

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 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;
 }