projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed sh/dx
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index da449f72c8bea36d17702f1c8b6cb75b2a642ecc..0f802d89f6396a8fd031ea2323a8d41666c3131c 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-290,9
+290,7
@@
sub finish
sub prompt
{
my $self = shift;
sub prompt
{
my $self = shift;
- my $call = $self->{call};
- $self->send($self->msg('pr', $call));
- #DXChannel::msg($self, 'pr', $call);
+ $self->send($self->msg($self->here ? 'pr' : 'pr2', $self->call));
}
# broadcast a message to all users [except those mentioned after buffer]
}
# broadcast a message to all users [except those mentioned after buffer]
@@
-490,11
+488,7
@@
sub find_cmd_name {
close $fh;
#wrap the code into a subroutine inside our unique package
close $fh;
#wrap the code into a subroutine inside our unique package
- my $eval = qq{
- sub $package
- {
- $sub
- } };
+ my $eval = qq{ sub $package { $sub } };
if (isdbg('eval')) {
my @list = split /\n/, $eval;
if (isdbg('eval')) {
my @list = split /\n/, $eval;