summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changelog5
-rwxr-xr-xbin/icli12
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} }
+ );
+ }
}
}
}