use DXBearing;
use CmdAlias;
use Filter;
-use Carp;
use Minimuf;
use DXDb;
use Sun;
unless (exists $Cache{$package}->{'sub'}) {
$c = eval $Cache{$package}->{'eval'};
if ($@) {
- return ("Syserr: Syntax error in $package", $@);
+ return DXDebug::shortmess($@);
}
$Cache{$package}->{'sub'} = $c;
}
@ans = &{$c}($self, $args);
};
- return ($@) if $@;
+ if ($@) {
+ cluck($@);
+ return (DXDebug::shortmess($@));
+ };
}
} else {
dbg('command', "cmd: $cmd not found");