fix sending msgs to g1tlh-2 (and not to g1tlh, - and 2)

[spider.git] / cmd / send.pl

diff --git a/cmd/send.pl b/cmd/send.pl
index 71cea2bc7f7d0616ac8234516dcda53597e9069e..9154d34b6f8966edb3fd4760106abf54966ede4c 100644 (file)
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -32,7 +32,7 @@ $loc->{rrreq} = '0';
 
 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?