From: Thomas Lamprecht <t.lamprecht@proxmox.com>
Date: Fri, 14 Apr 2023 14:38:13 +0000 (+0200)
Subject: replace junior semicolon with actual one
X-Git-Url: https://git.proxmox.com/?p=pve-http-server.git;a=commitdiff_plain;h=148dc08e90eba59f0d36596fdf37d634d5503dd5

replace junior semicolon with actual one

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 <t.lamprecht@proxmox.com>
---

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 '') {