other 5.004 abiquities

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index d17f47e61b017f8dfa40f1a825249bb29edce6e4..92eaa46cbb3bcba82edb0db6b355de730852f9af 100644 (file)
--- 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);
                                    };