From f2a6b13ce49649bddc456f7ae5fc7f56811ce250 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 10 Jul 2014 01:57:21 +0200
Subject: fix uninitialized value when host/service has empty contactgroups
 list

---
 Changelog |  5 +++++
 bin/icli  | 12 +++++++-----
 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} }
+					);
+				}
 			}
 		}
 	}
-- 
cgit v1.2.3