Merge pull request #547 from hplato/ia7

Fixed a reference issue in json_server.pl for older versions of perl
hollie · Oct 7, 2015 · 385c2a2 · 385c2a2
2 parents 3b6f7bd + aa4eda2
commit 385c2a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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]);