if ($self->state eq "prompt") {
- my @f = split /\b/, $line;
+ my @f = split /([\s\@\$])/, $line;
@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
# any thing after send?
return (1, $self->msg('e6')) if !@f;
+ return (1, $self->msg('e28')) unless $self->registered || uc $f[0] eq $main::myalias;
while (@f) {
my $f = uc shift @f;