api: ceph monitor: rework some code style to modern

Signed-off-by: Max Carrara <m.carrara@proxmox.com>
 [ TL: also improve if-expression wrapping ]
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/PVE/API2/Ceph/MON.pm b/PVE/API2/Ceph/MON.pm
index 057ca70d21cf5e9f8ca8eceb6617bbe7fb9cfb05..00b8f5030e628e24f7c87363de4146602aef0016 100644 (file)
--- a/PVE/API2/Ceph/MON.pm
+++ b/PVE/API2/Ceph/MON.pm
@@ -147,14 +147,15 @@ my $assert_mon_prerequisites = sub {
 my $assert_mon_can_remove = sub {
     my ($monhash, $monlist, $monid, $mondir) = @_;
 
-    if (!(defined($monhash->{$monid}) ||
-         grep { defined($_->{name}) && $_->{name} eq $monid } @$monlist))
-    {
+    if (
+        !defined($monhash->{$monid} ||
+        grep { defined($_->{name}) && $_->{name} eq $monid } $monlist->@*)
+    ) {
        die "no such monitor id '$monid'\n"
     }
 
     die "monitor filesystem '$mondir' does not exist on this node\n" if ! -d $mondir;
-    die "can't remove last monitor\n" if scalar(@$monlist) <= 1;
+    die "can't remove last monitor\n" if scalar($monlist->@*) <= 1;
 };
 
 my $remove_addr_from_mon_host = sub {