projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f7dd82f
)
other 5.004 abiquities
author
djk
<djk>
Thu, 18 Nov 1999 22:36:55 +0000
(22:36 +0000)
committer
djk
<djk>
Thu, 18 Nov 1999 22:36:55 +0000
(22:36 +0000)
perl/DXCommandmode.pm
patch
|
blob
|
history
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;
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", $@);
}
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);
};
eval {
@ans = &{$c}($self, $args);
};