1
0
mirror of https://github.com/c-kr/check_json.git synced 2024-11-23 10:53:47 +01:00

Fully specify hash reference to find $attribute.

This commit is contained in:
Alan Hodgson 2015-12-16 10:53:38 -08:00
parent 1cf1f9c298
commit f3233fb247

View File

@ -145,7 +145,7 @@ my $resultTmp;
foreach my $attribute (sort keys %attributes){ foreach my $attribute (sort keys %attributes){
my $check_value; 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))}; if ($np->opts->verbose) { (print Dumper ($check_value_str))};
eval $check_value_str; eval $check_value_str;