diff --git a/lib/perl/OVH/Bastion/allowkeeper.inc b/lib/perl/OVH/Bastion/allowkeeper.inc
index dc38574..aed2d1b 100644
--- a/lib/perl/OVH/Bastion/allowkeeper.inc
+++ b/lib/perl/OVH/Bastion/allowkeeper.inc
@@ -655,11 +655,9 @@ sub get_group_list {
         return $_cache_get_group_list{$groupType};
     }
 
-    my $antiloop = 9000;
     my %groups;
     setgrent();
     while (my @nextgroup = getgrent()) {
-        $antiloop-- < 0 and last;
         my ($name, $passwd, $gid, $members) = @nextgroup;
         if (    $groupType eq 'key'
             and $name =~ /^key/