diff options
author | Eric Wong <e@80x24.org> | 2019-11-04 03:01:34 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-11-08 20:21:56 +0000 |
commit | 2399690b533a3f0c584addae366aab23b23cb3ed (patch) | |
tree | 9e3dab0a31f4a25681b8c99636f4e586dc224391 /t/httpd-corner.t | |
parent | b8076445430956bd87ade6345e6c01109a485bf7 (diff) | |
download | public-inbox-2399690b533a3f0c584addae366aab23b23cb3ed.tar.gz |
We don't need to force byte semantics for a buffer we clearly create (via ->read) with byte semantics. Since we didn't "use bytes" in t/httpd-corner.t, it was inadvertantly made available by IPC::Run (which goes away, next).
Diffstat (limited to 't/httpd-corner.t')
-rw-r--r-- | t/httpd-corner.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/httpd-corner.t b/t/httpd-corner.t index fbba4623..50aa28e3 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -144,7 +144,7 @@ SKIP: { $conn->write($payload . "\r\n0\r\n\r\nGET /empty HTTP/1.0\r\n\r\n"); $conn->read(my $buf, 4096); my $lim = 0; - $lim++ while ($conn->read($buf, 4096, bytes::length($buf)) && $lim < 9); + $lim++ while ($conn->read($buf, 4096, length($buf)) && $lim < 9); my $exp = sha1_hex($payload); like($buf, qr!\r\n\r\n${exp}HTTP/1\.0 200 OK\r\n!s, 'chunk parser can handled pipelined requests'); |