Fully specify hash reference to find $attribute.

c-kr · Dec 16, 2015 · f3233fb · f3233fb
1 parent 1cf1f9c
commit f3233fb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/check_json.pl b/check_json.pl
@@ -145,8 +145,8 @@
 
 foreach my $attribute (sort keys %attributes){
     my $check_value;
-    my $check_value_str = '$check_value = $json_response->'.$attribute;
-    
+    my $check_value_str = '$check_value = $json_response->{\'' . $attribute . '\'}';
+
     if ($np->opts->verbose) { (print Dumper ($check_value_str))};
     eval $check_value_str;