From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from gate001.proxmox.com (gate001.proxmox.com [45.144.208.40]) by lore.proxmox.com (Postfix) with ESMTPS id C18FF1FF138 for ; Wed, 22 Jul 2026 10:49:53 +0200 (CEST) Received: from gate001.proxmox.com (localhost.localdomain [127.0.0.1]) by gate001.proxmox.com (Proxmox) with ESMTP id 1899821631; Wed, 22 Jul 2026 10:48:39 +0200 (CEST) From: Daniel Kral To: pve-devel@lists.proxmox.com Subject: [PATCH ha-manager v3 03/16] hash-tools: use v5.36 and signatures in module Date: Wed, 22 Jul 2026 10:48:11 +0200 Message-ID: <20260722084824.108350-4-d.kral@proxmox.com> X-Mailer: git-send-email 2.47.3 In-Reply-To: <20260722084824.108350-1-d.kral@proxmox.com> References: <20260722084824.108350-1-d.kral@proxmox.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Bm-Milter-Handled: 55990f41-d878-4baa-be0a-ee34c49e34d2 X-Bm-Transport-Timestamp: 1784710082507 X-SPAM-LEVEL: Spam detection results: 0 AWL -0.137 Adjusted score from AWL reputation of From: address DMARC_MISSING 0.1 Missing DMARC policy KAM_DMARC_STATUS 0.01 Test Rule for DKIM or SPF Failure with Strict Alignment (newer systems) SPF_HELO_NONE 0.001 SPF: HELO does not publish an SPF Record SPF_PASS -0.001 SPF: sender matches SPF record Message-ID-Hash: O6LGFOUMI762W5VYNGARKFAUM34HKRBH X-Message-ID-Hash: O6LGFOUMI762W5VYNGARKFAUM34HKRBH X-MailFrom: d.kral@proxmox.com X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; loop; banned-address; emergency; member-moderation; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; digests; suspicious-header X-Mailman-Version: 3.3.10 Precedence: list List-Id: Proxmox VE development discussion List-Help: List-Owner: List-Post: List-Subscribe: List-Unsubscribe: Signed-off-by: Daniel Kral --- changes since v2: - new! src/PVE/HA/HashTools.pm | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/src/PVE/HA/HashTools.pm b/src/PVE/HA/HashTools.pm index ebe47e38..3bbea81d 100644 --- a/src/PVE/HA/HashTools.pm +++ b/src/PVE/HA/HashTools.pm @@ -1,7 +1,6 @@ package PVE::HA::HashTools; -use strict; -use warnings; +use v5.36; use base qw(Exporter); @@ -39,9 +38,7 @@ key-value pairs are always set to C<1> or another truthy value. =cut -sub set_intersect { - my ($hash1, $hash2) = @_; - +sub set_intersect($hash1, $hash2) { my $result = { map { $hash1->{$_} && $hash2->{$_} ? ($_ => 1) : () } keys %$hash1 }; return $result; @@ -57,9 +54,7 @@ key-value pairs are always set to C<1> or another truthy value. =cut -sub set_union { - my ($hash1, $hash2) = @_; - +sub set_union($hash1, $hash2) { my $result = { map { $_ => 1 } keys %$hash1, keys %$hash2 }; return $result; @@ -77,9 +72,7 @@ Returns C<1> if they are disjoint, C<0> otherwise. =cut -sub sets_are_disjoint { - my ($hash1, $hash2) = @_; - +sub sets_are_disjoint($hash1, $hash2) { for my $key (keys %$hash1) { return 0 if $hash2->{$key}; } -- 2.47.3