mirror of
https://github.com/c-kr/check_json.git
synced 2024-11-23 19:03:49 +01:00
Fully specify hash reference to find $attribute.
This commit is contained in:
parent
1cf1f9c298
commit
f3233fb247
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user