[icinga-checkins] icinga.org: icinga-core/fholzer/core: Deref hash for older perls

git at icinga.org git at icinga.org
Mon Apr 23 09:09:38 CEST 2012


Module: icinga-core
Branch: fholzer/core
Commit: 8fbd1f130b2237ded5f8b9e36eff75844446c917
URL:    https://git.icinga.org/?p=icinga-core.git;a=commit;h=8fbd1f130b2237ded5f8b9e36eff75844446c917

Author: Alexander Wirt <formorer at debian.org>
Date:   Mon Apr 23 09:07:16 2012 +0200

Deref hash for older perls

---

 tools/icinga_verification.pl |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/tools/icinga_verification.pl b/tools/icinga_verification.pl
index 44c4b50..12b78c3 100644
--- a/tools/icinga_verification.pl
+++ b/tools/icinga_verification.pl
@@ -304,7 +304,7 @@ Process Status:
 EOF
 
 
-foreach my $service (keys($config_ref->{'services'})) {
+foreach my $service (keys(%{ $config_ref->{'services'} })) {
     my $binary = which (@{ $config_ref->{'services'}->{$service}->{'binaries'} });
     if (! $binary ) {
         print color("red"), " [$service]",color("reset"), " no binary found.\n";





More information about the icinga-checkins mailing list