From 69d06e77cd09528589ceffaa8dc6ec890032cd6b Mon Sep 17 00:00:00 2001
From: fbsanchez <fborja.sanchez@artica.es>
Date: Tue, 7 Jul 2020 17:19:02 +0200
Subject: [PATCH] fix recursion while searching group children perl

---
 pandora_server/lib/PandoraFMS/DB.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pandora_server/lib/PandoraFMS/DB.pm b/pandora_server/lib/PandoraFMS/DB.pm
index 2ed7d25088..030ff682d4 100644
--- a/pandora_server/lib/PandoraFMS/DB.pm
+++ b/pandora_server/lib/PandoraFMS/DB.pm
@@ -303,10 +303,11 @@ sub get_group_children ($$$;$) {
 	if (is_empty($href_groups)) {
 		my @groups = get_db_rows($dbh, 'SELECT * FROM tgrupo');
 
-		my $href_groups = map {
+		my %groups = map {
 			$_->{'id_grupo'} => $_
-		} @groups
+		} @groups;
 
+		$href_groups = \%groups;
 	}
 
 	my $return = {};