projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
f04ec95
)
handle g1tlh@www type things
author
minima
<minima>
Wed, 3 Oct 2001 10:11:59 +0000
(10:11 +0000)
committer
minima
<minima>
Wed, 3 Oct 2001 10:11:59 +0000
(10:11 +0000)
cmd/send.pl
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/cmd/send.pl
b/cmd/send.pl
index c3ff858362d1db997fe71a5550cc33751b27ca5b..3bc2a6b3498bdde9b94751272b7e20e3c2207a3e 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 /\
s+
/, $line;
+ my @f = split /\
b
/, $line;
# any thing after send?
return (1, $self->msg('e6')) if !@f;
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 46280dfa32dddeeefddf1264de642b2c4a1860a9..5691b725dbbda64231cef15696d5f48ea132cc69 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-1207,7
+1207,7
@@
sub import_one
# first line;
my $line = shift @$ref;
- my @f = split /\
s+
/, $line;
+ my @f = split /\
b
/, $line;
unless (@f && $f[0] =~ /^(:?S|SP|SB|SEND)$/ ) {
my $m = "invalid first line in import '$line'";
dbg($m) if isdbg('msg');