Fix non hash unreference (#1037)

2016-06-09 21:19:40 +00:00 · 2016-06-09 21:19:40 +00:00 · 6fba9de5c2
commit 6fba9de5c2
parent ab24b36872
1 changed files with 1 additions and 0 deletions
--- a/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm
+++ b/lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Conf/Parser.pm
@ -993,6 +993,7 @@ sub _execTest {
    # Recursive test (for locationRules,...)
    else {
        my $res = 1;
+        return $res unless ( ref($value) eq 'HASH' );
        foreach my $k ( keys %$value ) {
            $res = 0
              unless (