about summary refs log tree commit homepage
path: root/t/httpd-corner.t
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-11-04 03:01:34 +0000
committerEric Wong <e@80x24.org>2019-11-08 20:21:56 +0000
commit2399690b533a3f0c584addae366aab23b23cb3ed (patch)
tree9e3dab0a31f4a25681b8c99636f4e586dc224391 /t/httpd-corner.t
parentb8076445430956bd87ade6345e6c01109a485bf7 (diff)
downloadpublic-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.t2
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');