fix uninitialized value when host/service has empty contactgroups list

2 files changed, 12 insertions, 5 deletions

diff --git a/Changelog b/Changelog
index 16a3e30..dcb7792 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,8 @@
+git HEAD
+
+    * Do not throw warnings when encountering a host/service with an empty
+      contact group list
+
 App::Icli 0.48 - Fri Jun 13 2014
 
     * New dependencies: DateTime, DateTime::Format::Strptime, DateTime::TimeZone
diff --git a/bin/icli b/bin/icli
index 220d0be..44dd584 100755
--- a/bin/icli
+++ b/bin/icli
@@ -463,11 +463,13 @@ sub enhance_status {
 				$s->{contacts} =~ s{^ *}{}o;
 				$s->{contacts} = [ split( m{, *}, $s->{contacts} ) ];
 			}
-			for my $group ( split( m{, *}, $s->{contact_groups} ) ) {
-				push(
-					@{ $s->{contacts} },
-					@{ $config->{contactgroups}{$group} }
-				);
+			if ($s->{contact_groups}) {
+				for my $group ( split( m{, *}, $s->{contact_groups} ) ) {
+					push(
+						@{ $s->{contacts} },
+						@{ $config->{contactgroups}{$group} }
+					);
+				}
 			}
 		}
 	}