X-Git-Url: http://scm.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCommandmode.pm;h=92eaa46cbb3bcba82edb0db6b355de730852f9af;hb=586d2248d5a72cac3dd363cf1f23e16fa620bed6;hp=d17f47e61b017f8dfa40f1a825249bb29edce6e4;hpb=f7dd82f2355fd2bf0a342838e3a78eda8c7c623d;p=spider.git

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