From 586d2248d5a72cac3dd363cf1f23e16fa620bed6 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Thu, 18 Nov 1999 22:36:55 +0000
Subject: [PATCH] other 5.004 abiquities

---
 perl/DXCommandmode.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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