summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-07-10 01:57:21 +0200
committerDaniel Friesel <derf@finalrewind.org>2014-07-10 01:57:21 +0200
commitf2a6b13ce49649bddc456f7ae5fc7f56811ce250 (patch)
tree654bc03a5fd31328ba4efd09de21ac66c5196d79
parent4d7dacf51d7ebc8928ef2fa432f05d878d370430 (diff)
fix uninitialized value when host/service has empty contactgroups list
-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} }
+ );
+ }
}
}
}