From 4967a0920b2f4f1afa8cd9bc53d1177e5ac56248 Mon Sep 17 00:00:00 2001
From: Graham McGregor <gmcgregor@recognia.com>
Date: Wed, 5 Nov 2014 10:04:56 -0500
Subject: [PATCH] Fix for perl 5.8.8

Change the way $json_response has is referenced. See
https://stackoverflow.com/questions/20824920/perl-array-references-and-avoiding-type-of-arg-1-to-keys-must-be-hash-error
---
 check_json.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/check_json.pl b/check_json.pl
index 9c9000b..0f48b3d 100755
--- a/check_json.pl
+++ b/check_json.pl
@@ -158,7 +158,7 @@ my @statusmsg;
 
 # routine to add perfdata from JSON response based on a loop of keys given in perfvals (csv)
 if ($np->opts->perfvars) {
-    foreach my $key ($np->opts->perfvars eq '*' ? map { "{$_}"} sort keys $json_response : split(',', $np->opts->perfvars)) {
+    foreach my $key ($np->opts->perfvars eq '*' ? map { "{$_}"} sort keys %$json_response : split(',', $np->opts->perfvars)) {
         # use last element of key as label
         my $label = (split('->', $key))[-1];
         # make label ascii compatible
@@ -188,7 +188,7 @@ if ($np->opts->perfvars) {
 
 # output some vars in message
 if ($np->opts->outputvars) {
-    foreach my $key ($np->opts->outputvars eq '*' ? map { "{$_}"} sort keys $json_response : split(',', $np->opts->outputvars)) {
+    foreach my $key ($np->opts->outputvars eq '*' ? map { "{$_}"} sort keys %$json_response : split(',', $np->opts->outputvars)) {
         # use last element of key as label
         my $label = (split('->', $key))[-1];
         # make label ascii compatible