X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Ftalk.pl;fp=cmd%2Ftalk.pl;h=e924acbde41bb95a5ed3ea7aa1106006034d2600;hb=54939e890b7452f179003e54ecfc273bebe33390;hp=62198627e3873b463825654399eafc39bee3adc3;hpb=d46e81d715d7d2050c924a608c31cf8ab5143e3f;p=spider.git diff --git a/cmd/talk.pl b/cmd/talk.pl index 62198627..e924acbd 100644 --- a/cmd/talk.pl +++ b/cmd/talk.pl @@ -24,7 +24,9 @@ return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript; # via is deprecated / ignored $inline =~ s/(?:\s*>([A-Za-z0-9\-]+))\s*//; -($to, $line) = $inline =~ /^\s*([A-Za-z0-9\-]+)\s+(.*)$/; +($to, $line) = $inline =~ /^\s*([A-Za-z0-9\-]+)\s*(.*)?$/; + +#$DB::single = 1; return (1, $self->msg('e8')) unless $to;