diff --git a/cualsea-server/lib/Cualsea/Server/MessageController.pm b/cualsea-server/lib/Cualsea/Server/MessageController.pm
index 3c6c1f9..f497663 100644
--- a/cualsea-server/lib/Cualsea/Server/MessageController.pm
+++ b/cualsea-server/lib/Cualsea/Server/MessageController.pm
@@ -261,15 +261,7 @@ sub new {
         my $socket = $params{socket};
         my ( $pid, $uid, $gid ) = unpack 'LLL', $socket->sockopt(SO_PEERCRED);
         my $user = getpwuid($uid);
-        state $name = '';
-        state $members = '';
-        if (!$name || !$members) {
-            while ( ( $name, undef, undef, $members ) = getgrent() ) {
-                if ( $name eq 'cualsea' ) {
-                    last;
-                }
-            }
-        }
+        my ( undef, undef, undef, $members ) = getgrnam('cualsea');
         return any { $_ eq $user } split ' ', $members;
     }
 }