From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id 4EABB1F8C2 for ; Fri, 1 May 2020 18:04:45 +0000 (UTC) From: Eric Wong To: meta@public-inbox.org Subject: [PATCH 1/2] t/httpd-corner.t: fix uninitialized warning Date: Fri, 1 May 2020 18:04:44 +0000 Message-Id: <20200501180445.16513-2-e@yhbt.net> In-Reply-To: <20200501180445.16513-1-e@yhbt.net> References: <20200501180445.16513-1-e@yhbt.net> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Current versions of Perl don't warn when vec() is given `undef' as its first arg, but Perl 5.10.1 does, at least. Fixes: c7b4cbdadf3116a0 ("t/httpd-corner: improve reliability and diagnostics") --- t/httpd-corner.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/httpd-corner.t b/t/httpd-corner.t index 7a6bcc66..68148655 100644 --- a/t/httpd-corner.t +++ b/t/httpd-corner.t @@ -296,7 +296,7 @@ my $len = length $str; is($len, 26, 'got the alphabet'); my $check_self = sub { my ($conn) = @_; - vec(my $rbits, fileno($conn), 1) = 1; + vec(my $rbits = '', fileno($conn), 1) = 1; select($rbits, undef, undef, 30) or Carp::confess('timed out'); $conn->read(my $buf, 4096); my ($head, $body) = split(/\r\n\r\n/, $buf, 2);