From 7fa2523bfcf20db9c56bef77d77a2fb8840ecda2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?St=C3=A9phane=20Lesimple?=
 <stephane.lesimple+bastion@ovhcloud.com>
Date: Fri, 21 Jan 2022 13:28:38 +0000
Subject: [PATCH] fix: get_group_list() returned invalid members list (was not
 used anywhere)

---
 lib/perl/OVH/Bastion/allowkeeper.inc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/perl/OVH/Bastion/allowkeeper.inc b/lib/perl/OVH/Bastion/allowkeeper.inc
index 32a1b1d..00106bf 100644
--- a/lib/perl/OVH/Bastion/allowkeeper.inc
+++ b/lib/perl/OVH/Bastion/allowkeeper.inc
@@ -746,8 +746,7 @@ sub get_group_list {
             and not grep { $name eq $_ } qw{ keykeeper keyreader })
         {
             $name =~ s/^key//;
-            my @members = split(/ /, $members);
-            $groups{$name} = {gid => $gid, members => split(/ /, $members)};
+            $groups{$name} = {gid => $gid, members => [split(/ /, $members)]} if ($name ne '');
         }
     }
     $_cache_get_group_list{$groupType} = R('OK', value => \%groups);