t/nntpd.t | 4 ++-- diff --git a/t/nntpd.t b/t/nntpd.t index e4c0244d461cbe2ce35a50e28faad23d9038dd16..8a721e2098eb5556a8022fa1f22d4b3afb2304cb 100644 --- a/t/nntpd.t +++ b/t/nntpd.t @@ -130,7 +130,7 @@ $buf = ''; 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 @@ syswrite($s, "OVER $mid\r\n"); $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 \t" .