From: Eric Wong Date: Mon, 4 Nov 2019 03:01:34 +0000 (+0000) Subject: t/httpd-corner.t: drop unnecessary bytes:: for length() X-Git-Tag: v1.3.0~317 X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=2399690b533a3f0c584addae366aab23b23cb3ed;p=public-inbox.git t/httpd-corner.t: drop unnecessary bytes:: for length() 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). --- 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');