Monitoring/check_json_fork
1
0
Fork 0
mirror of https://github.com/c-kr/check_json.git synced 2024-11-23 10:53:47 +01:00
Code Issues Releases Wiki Activity

Fix for perl 5.8.8

Browse Source 
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
This commit is contained in:
Graham McGregor 2014-11-05 10:04:56 -05:00
parent 0e6fe91112
commit 4967a0920b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
check_json.pl
View File

@ -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