From: 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.org/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); };