do not crash in Delete when user is in non-existing group (fix #10242)

1 files changed, 7 insertions, 3 deletions

diff --git a/userdrake b/userdrake
index ff01bff..a5f7764 100755
--- a/userdrake
+++ b/userdrake
@@ -531,9 +531,13 @@ sub Delete {
 								 UpdateOrDelUsersInGroup($username, 1);
 								 #Let's check out the user's primary group
 								 my $usergid = $userEnt->Gid($GetValue);
-								 my $groupEnt = $ctx->LookupGroupById($usergid); 
-								 my $member = $groupEnt->MemberName(1, 0);
-								 if ($groupEnt && scalar(@$member) == 0) { $groupEnt->Gid($GetValue) > 499 and $ctx->GroupDel($groupEnt) }; 
+								 my $groupEnt = $ctx->LookupGroupById($usergid);
+								 if ($groupEnt) {
+								     my $member = $groupEnt->MemberName(1, 0);
+								     if (scalar(@$member) == 0 and $groupEnt->Gid($GetValue) > 499) {
+									 $ctx->GroupDel($groupEnt)
+								     }
+								 }
 								 $checkhome->get_active and $ctx->CleanHome($userEnt);
 								 $checkspool->get_active and $ctx->CleanSpool($userEnt);
 								 Refresh($sysfilter, $stringsearch)