projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
store the correct duptext for PC11
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 39153ea4b40ae8120c756d83bba9d762a7d8be6f..4a1acbba2858c37745d31fee704e245893fc0d39 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-24,7
+24,6
@@
use DXLogPrint;
use DXBearing;
use CmdAlias;
use Filter;
use DXBearing;
use CmdAlias;
use Filter;
-use Carp;
use Minimuf;
use DXDb;
use Sun;
use Minimuf;
use DXDb;
use Sun;
@@
-246,7
+245,7
@@
sub run_cmd
unless (exists $Cache{$package}->{'sub'}) {
$c = eval $Cache{$package}->{'eval'};
if ($@) {
unless (exists $Cache{$package}->{'sub'}) {
$c = eval $Cache{$package}->{'eval'};
if ($@) {
- return
("Syserr: Syntax error in $package",
$@);
+ return
DXDebug::shortmess(
$@);
}
$Cache{$package}->{'sub'} = $c;
}
}
$Cache{$package}->{'sub'} = $c;
}
@@
-255,7
+254,10
@@
sub run_cmd
@ans = &{$c}($self, $args);
};
@ans = &{$c}($self, $args);
};
- return ($@) if $@;
+ if ($@) {
+ cluck($@);
+ return (DXDebug::shortmess($@));
+ };
}
} else {
dbg('command', "cmd: $cmd not found");
}
} else {
dbg('command', "cmd: $cmd not found");