projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a0cf638
)
made non-existant commands return an error
author
djk
<djk>
Tue, 10 Nov 1998 21:59:07 +0000
(21:59 +0000)
committer
djk
<djk>
Tue, 10 Nov 1998 21:59:07 +0000
(21:59 +0000)
perl/DXCommandmode.pm
patch
|
blob
|
history
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 5348212d620ceb7c09626f5c9d7f56ef3d5690a8..a0cdbb480e5e8d01212a7ebd9da634921a0cdf61 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-124,7
+124,7
@@
sub normal
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
my $package = find_cmd_name($path, $fcmd);
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
my $package = find_cmd_name($path, $fcmd);
- @ans = (0
, "Syserr: compile err on $package\n$@$errstr"
) if !$package ;
+ @ans = (0) if !$package ;
if ($package) {
my $c = qq{ \@ans = $package(\$self, \$args) };
if ($package) {
my $c = qq{ \@ans = $package(\$self, \$args) };
@@
-145,7
+145,7
@@
sub normal
} else {
shift @ans;
if (@ans > 0) {
} else {
shift @ans;
if (@ans > 0) {
- $self->send($self->msg('e2'
, @ans)
);
+ $self->send($self->msg('e2'
), @ans
);
} else {
$self->send($self->msg('e1'));
}
} else {
$self->send($self->msg('e1'));
}
@@
-394,6
+394,7
@@
sub find_cmd_name {
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
+ return undef;
};
local $/ = undef;
my $sub = <$fh>;
};
local $/ = undef;
my $sub = <$fh>;
@@
-424,7
+425,6
@@
sub find_cmd_name {
print "\$\@ = $@";
$errstr = $@;
delete_package($package);
print "\$\@ = $@";
$errstr = $@;
delete_package($package);
- $package = undef;
} else {
#cache it unless we're cleaning out each time
$Cache{$package}{mtime} = $mtime;
} else {
#cache it unless we're cleaning out each time
$Cache{$package}{mtime} = $mtime;
@@
-433,6
+433,7
@@
sub find_cmd_name {
#print Devel::Symdump->rnew($package)->as_string, $/;
$package = "DXCommandmode::$package" if $package;
#print Devel::Symdump->rnew($package)->as_string, $/;
$package = "DXCommandmode::$package" if $package;
+ $package = undef if $errstr;
return $package;
}
return $package;
}