diff options
author | Eric Wong <e@80x24.org> | 2015-09-30 21:00:26 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2015-09-30 21:09:24 +0000 |
commit | bb93ee6601ac6ca5fb6ff0e9d4d1cfcbb73e7f58 (patch) | |
tree | bdcfb172bb164b05b3d1c944c88ee247e04688af /t | |
parent | 1d236e649df10515bf042fa2283eef509648d9c9 (diff) | |
download | public-inbox-bb93ee6601ac6ca5fb6ff0e9d4d1cfcbb73e7f58.tar.gz |
Multiline responses must end with "\r\n.\r\n", so we won't break out early in case the OS doesn't support MSG_MORE.
Diffstat (limited to 't')
-rw-r--r-- | t/nntpd.t | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -130,7 +130,7 @@ EOF syswrite($s, "HDR $k $mid\r\n"); do { sysread($s, $buf, 4096, length($buf)); - } until ($buf =~ /^[^2]../ || $buf =~ /\r\n\.\r\n\z/); + } until ($buf =~ /\r\n\.\r\n\z/); my @r = split("\r\n", $buf); like($r[0], qr/\A224 /, '224 response for HDR'); is($r[1], "0 $v", 'got expected response for HDR'); @@ -167,7 +167,7 @@ EOF $buf = ''; do { sysread($s, $buf, 4096, length($buf)); - } until ($buf =~ /^[^2]../ || $buf =~ /\r\n\.\r\n\z/); + } until ($buf =~ /\r\n\.\r\n\z/); my @r = split("\r\n", $buf); like($r[0], qr/^224 /, 'got 224 response for OVER'); is($r[1], "0\thihi\tMe <me\@example.com>\t" . |