From 148dc08e90eba59f0d36596fdf37d634d5503dd5 Mon Sep 17 00:00:00 2001 From: Thomas Lamprecht Date: Fri, 14 Apr 2023 16:38:13 +0200 Subject: [PATCH] replace junior semicolon with actual one MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit commas can be used in two ways, quoting Perl Best Practices (PBP): > The comma actually has two distinct roles in Perl. In a scalar > context, it is (as those former C programmers expect) a sequencing > operator: “do this, then do that”. But in a list context, such as > the argument list of a print, the comma is a list separator, not > technically an operator at all. -- PBP, page 69 And the separating variant is called a "junior semicolon" by PBP. Signed-off-by: Thomas Lamprecht --- src/PVE/APIServer/AnyEvent.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/PVE/APIServer/AnyEvent.pm b/src/PVE/APIServer/AnyEvent.pm index 5cd8afb..b2ae99b 100644 --- a/src/PVE/APIServer/AnyEvent.pm +++ b/src/PVE/APIServer/AnyEvent.pm @@ -1640,7 +1640,7 @@ sub push_request_header { $reqstate->{proto}->{min} = $min; $reqstate->{proto}->{ver} = $maj*1000+$min; $reqstate->{request} = HTTP::Request->new($method, $url); - $reqstate->{starttime} = [gettimeofday], + $reqstate->{starttime} = [gettimeofday]; $self->unshift_read_header($reqstate); } elsif ($line eq '') {