From c6537a5d08b29bcbec7f33f6d3e44b37422bda35 Mon Sep 17 00:00:00 2001
From: Lieven Hollevoet <hollie@lika.be>
Date: Sat, 21 Mar 2015 16:31:52 +0100
Subject: [PATCH] Fix missing array dereference reported by Mike on the mailing
 list

---
 lib/json_server.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/json_server.pl b/lib/json_server.pl
index 7af5dfedb..e996ea249 100644
--- a/lib/json_server.pl
+++ b/lib/json_server.pl
@@ -286,7 +286,7 @@ sub json_get {
 		}
 		if (scalar(@log) > 0) {
 			$json_data{'print_log'} = [];
-			push($json_data{'print_log'}, @log);
+			push(@{$json_data{'print_log'}}, @log);
 		}
 	}
 	
@@ -305,7 +305,7 @@ sub json_get {
 		}
 		if (scalar(@log) > 0) {
 			$json_data{'print_speaklog'} = [];
-			push($json_data{'print_speaklog'}, @log);
+			push(@{$json_data{'print_speaklog'}}, @log);
 		}
 	}
 
@@ -559,7 +559,7 @@ sub json_object_detail {
 				$value = [];
 				for my $obj_name (&list_objects_by_group($object->get_object_name, 1)) {
 					$obj_name =~ s/\$|\%|\&|\@//g;
-					push ($value, $obj_name);
+					push (@{$value}, $obj_name);
 				}
 			}
 		}