From 586d2248d5a72cac3dd363cf1f23e16fa620bed6 Mon Sep 17 00:00:00 2001 From: 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.43.0