From cac59b03a1b856647b2f22ac89f343c9db288995 Mon Sep 17 00:00:00 2001
From: H Plato <hplato@gmail.com>
Date: Tue, 6 Oct 2015 16:55:28 -0600
Subject: [PATCH] Fixed an issue with perl 5.12 and a hash reference

---
 lib/json_server.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/json_server.pl b/lib/json_server.pl
index f217d038a..6d20f9905 100644
--- a/lib/json_server.pl
+++ b/lib/json_server.pl
@@ -246,7 +246,7 @@ sub json_get {
 
 			if (defined $args{group}[0]) {
 				@{$args{ds}} = (); #override any DSs specified in the URL
-				for my $dsg (keys $json_data{'rrd_config'}->{'ds'}) {
+				for my $dsg (keys %{$json_data{'rrd_config'}->{'ds'}}) {
 					if (defined $json_data{'rrd_config'}->{'ds'}->{$dsg}->{'group'}) {
 						foreach my $group (split /,/,$json_data{'rrd_config'}->{'ds'}->{$dsg}->{'group'}) {
 							push @{$args{ds}}, $dsg if (lc $group) eq (lc $args{group}[0]);