From: djk <djk>
Date: Thu, 18 Nov 1999 22:36:55 +0000 (+0000)
Subject: other 5.004 abiquities
X-Git-Tag: R_1_35~25
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=586d2248d5a72cac3dd363cf1f23e16fa620bed6;p=spider.git

other 5.004 abiquities
---

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d17f47e6..92eaa46c 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -241,14 +241,14 @@ sub run_cmd
 				if ($package) {
 					dbg('command', "package: $package");
 					my $c;
-					unless (exists $Cache{$package}->{sub}) {
-						$c = eval $Cache{$package}->{eval};
+					unless (exists $Cache{$package}->{'sub'}) {
+						$c = eval $Cache{$package}->{'eval'};
 						if ($@) {
 							return ("Syserr: Syntax error in $package", $@);
 						}
-						$Cache{$package}->{sub} = $c;
+						$Cache{$package}->{'sub'} = $c;
 					}
-					$c = $Cache{$package}->{sub};
+					$c = $Cache{$package}->{'sub'};
 					eval {
 						@ans = &{$c}($self, $args);
 				    };