Fix warning

This commit is contained in:
Christophe Maudoux 2022-04-30 09:52:50 +02:00
parent 96f6667f24
commit ab8cc97a52
1 changed files with 1 additions and 1 deletions

View File

@ -156,7 +156,7 @@ sub setGroups {
my $groups = $req->sessionInfo->{groups} || '';
my $hGroups = $req->sessionInfo->{hGroups} || {};
for my $grp ( keys %demoGroups ) {
if ( grep { $_ eq $user } @{ $demoGroups{$grp} } ) {
if ( grep { $user && $user eq $_ } @{ $demoGroups{$grp} } ) {
$hGroups->{$grp} = { 'name' => $grp };
$groups =
($groups)