From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from firstgate.proxmox.com (firstgate.proxmox.com [212.224.123.68]) by lore.proxmox.com (Postfix) with ESMTPS id 4C3AC1FF187 for ; Mon, 3 Nov 2025 11:23:25 +0100 (CET) Received: from firstgate.proxmox.com (localhost [127.0.0.1]) by firstgate.proxmox.com (Proxmox) with ESMTP id B460B18194; Mon, 3 Nov 2025 11:22:06 +0100 (CET) From: Daniel Kral To: pve-devel@lists.proxmox.com Date: Mon, 3 Nov 2025 11:20:03 +0100 Message-ID: <20251103102118.153666-20-d.kral@proxmox.com> X-Mailer: git-send-email 2.47.3 In-Reply-To: <20251103102118.153666-1-d.kral@proxmox.com> References: <20251103102118.153666-1-d.kral@proxmox.com> MIME-Version: 1.0 X-Bm-Milter-Handled: 55990f41-d878-4baa-be0a-ee34c49e34d2 X-Bm-Transport-Timestamp: 1762165267685 X-SPAM-LEVEL: Spam detection results: 0 AWL 0.015 Adjusted score from AWL reputation of From: address BAYES_00 -1.9 Bayes spam probability is 0 to 1% DMARC_MISSING 0.1 Missing DMARC policy KAM_DMARC_STATUS 0.01 Test Rule for DKIM or SPF Failure with Strict Alignment SPF_HELO_NONE 0.001 SPF: HELO does not publish an SPF Record SPF_PASS -0.001 SPF: sender matches SPF record Subject: [pve-devel] [PATCH ha-manager v3 19/21] tree-wide: remove misused function prototype declaractions X-BeenThere: pve-devel@lists.proxmox.com X-Mailman-Version: 2.1.29 Precedence: list List-Id: Proxmox VE development discussion List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Reply-To: Proxmox VE development discussion Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit Errors-To: pve-devel-bounces@lists.proxmox.com Sender: "pve-devel" These do not fulfill any purpose and were introduced with false assumptions about what these guarantee and how these work. Also we recommend against their usage in our Perl Style Guide [0]. [0] https://pve.proxmox.com/wiki/Perl_Style_Guide#Prototypes Signed-off-by: Daniel Kral --- changes since v2: - NEW! src/PVE/HA/HashTools.pm | 6 +++--- src/PVE/HA/Rules.pm | 18 +++++++++--------- src/PVE/HA/Rules/NodeAffinity.pm | 2 +- src/PVE/HA/Rules/ResourceAffinity.pm | 10 +++++----- 4 files changed, 18 insertions(+), 18 deletions(-) diff --git a/src/PVE/HA/HashTools.pm b/src/PVE/HA/HashTools.pm index cf5c7a20..ebe47e38 100644 --- a/src/PVE/HA/HashTools.pm +++ b/src/PVE/HA/HashTools.pm @@ -39,7 +39,7 @@ key-value pairs are always set to C<1> or another truthy value. =cut -sub set_intersect : prototype($$) { +sub set_intersect { my ($hash1, $hash2) = @_; my $result = { map { $hash1->{$_} && $hash2->{$_} ? ($_ => 1) : () } keys %$hash1 }; @@ -57,7 +57,7 @@ key-value pairs are always set to C<1> or another truthy value. =cut -sub set_union : prototype($$) { +sub set_union { my ($hash1, $hash2) = @_; my $result = { map { $_ => 1 } keys %$hash1, keys %$hash2 }; @@ -77,7 +77,7 @@ Returns C<1> if they are disjoint, C<0> otherwise. =cut -sub sets_are_disjoint : prototype($$) { +sub sets_are_disjoint { my ($hash1, $hash2) = @_; for my $key (keys %$hash1) { diff --git a/src/PVE/HA/Rules.pm b/src/PVE/HA/Rules.pm index 69c53356..1c7706ce 100644 --- a/src/PVE/HA/Rules.pm +++ b/src/PVE/HA/Rules.pm @@ -264,7 +264,7 @@ haven't been explicitly set yet. =cut -sub set_rule_defaults : prototype($$) { +sub set_rule_defaults { my ($class, $rule) = @_; if (my $plugin = $class->lookup($rule->{type})) { @@ -303,7 +303,7 @@ Used to register rule checks for a rule plugin. =cut -sub register_check : prototype($$$) { +sub register_check { my ($class, $check_func, $collect_errors_func) = @_; my $type = eval { $class->type() }; @@ -322,7 +322,7 @@ Used to register rule transformers for a rule plugin. =cut -sub register_transform : prototype($$) { +sub register_transform { my ($class, $transform_func) = @_; my $type = eval { $class->type() }; @@ -345,7 +345,7 @@ implementations. =cut -sub get_plugin_check_arguments : prototype($$) { +sub get_plugin_check_arguments { my ($class, $rules) = @_; return {}; @@ -361,7 +361,7 @@ creation of these can be shared inbetween rule check implementations. =cut -sub get_check_arguments : prototype($$) { +sub get_check_arguments { my ($class, $rules) = @_; my $global_args = {}; @@ -391,7 +391,7 @@ very last. =cut -sub check_feasibility : prototype($$$) { +sub check_feasibility { my ($class, $rules, $nodes) = @_; my $global_errors = {}; @@ -429,7 +429,7 @@ Returns a list of messages with the reasons why rules were removed. =cut -sub transform : prototype($$$) { +sub transform { my ($class, $rules, $nodes) = @_; my $messages = []; @@ -540,7 +540,7 @@ The following key-value pairs for C<$opts> are: =cut -sub foreach_rule : prototype($$;%) { +sub foreach_rule { my ($rules, $func, %opts) = @_; my $sid = $opts{sid}; @@ -568,7 +568,7 @@ be used a newly introduced rule afterwards. =cut -sub get_next_ordinal : prototype($) { +sub get_next_ordinal { my ($rules) = @_; my $current_order = (sort { $a <=> $b } values %{ $rules->{order} })[0] || 0; diff --git a/src/PVE/HA/Rules/NodeAffinity.pm b/src/PVE/HA/Rules/NodeAffinity.pm index d98f896d..3fa1fdb4 100644 --- a/src/PVE/HA/Rules/NodeAffinity.pm +++ b/src/PVE/HA/Rules/NodeAffinity.pm @@ -265,7 +265,7 @@ If there are no available nodes at all, returns C. =cut -sub get_node_affinity : prototype($$$) { +sub get_node_affinity { my ($node_affinity, $sid, $online_nodes) = @_; return ($online_nodes, $online_nodes) if !defined($node_affinity->{$sid}); diff --git a/src/PVE/HA/Rules/ResourceAffinity.pm b/src/PVE/HA/Rules/ResourceAffinity.pm index c44d4f0b..4f5ffca5 100644 --- a/src/PVE/HA/Rules/ResourceAffinity.pm +++ b/src/PVE/HA/Rules/ResourceAffinity.pm @@ -458,7 +458,7 @@ affinitive to C<'ct:200'> and C<'ct:201'>, the returned value will be: =cut -sub get_affinitive_resources : prototype($$) { +sub get_affinitive_resources { my ($resource_affinity, $sid) = @_; my $together = $resource_affinity->{positive}->{$sid} // {}; @@ -500,7 +500,7 @@ resource C<$sid> is in a negative affinity with, the returned value will be: =cut -sub get_resource_affinity : prototype($$$$) { +sub get_resource_affinity { my ($resource_affinity, $sid, $ss, $online_nodes) = @_; my $together = {}; @@ -539,7 +539,7 @@ node C<$node> must be avoided. =cut -sub is_allowed_on_node : prototype($$$) { +sub is_allowed_on_node { my ($together, $separate, $node) = @_; return $together->{$node} || !$separate->{$node}; @@ -560,7 +560,7 @@ resource has not failed running there yet. =cut -sub apply_positive_resource_affinity : prototype($$) { +sub apply_positive_resource_affinity { my ($together, $allowed_nodes) = @_; for my $node (keys %$together) { @@ -594,7 +594,7 @@ resource has not failed running there yet. =cut -sub apply_negative_resource_affinity : prototype($$) { +sub apply_negative_resource_affinity { my ($separate, $allowed_nodes) = @_; my $forbidden_nodes = { $separate->%* }; -- 2.47.3 _______________________________________________ pve-devel mailing list pve-devel@lists.proxmox.com https://lists.proxmox.com/cgi-bin/mailman/listinfo/pve-devel