Fix non hash unreference (#1037)
This commit is contained in:
parent
ab24b36872
commit
6fba9de5c2
|
@ -993,6 +993,7 @@ sub _execTest {
|
||||||
# Recursive test (for locationRules,...)
|
# Recursive test (for locationRules,...)
|
||||||
else {
|
else {
|
||||||
my $res = 1;
|
my $res = 1;
|
||||||
|
return $res unless ( ref($value) eq 'HASH' );
|
||||||
foreach my $k ( keys %$value ) {
|
foreach my $k ( keys %$value ) {
|
||||||
$res = 0
|
$res = 0
|
||||||
unless (
|
unless (
|
||||||
|
|
Loading…
Reference in New Issue
Block a user