Config parser: fail if a "select"-type option does not contain a scalar

Moo
Maxime Besson 5 years ago
parent a9b1b6bc1d
commit 09ed2197df
  1. 1
      lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Attributes.pm
  2. 1
      lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm

@ -224,6 +224,7 @@ m[^(?:(?:\-+\s*BEGIN\s+(?:PUBLIC\s+KEY|CERTIFICATE)\s*\-+\r?\n)?[a-zA-Z0-9/\+\r\
},
'select' => {
'test' => sub {
return 0, 'Value is not a scalar' if ref $_[0];
my $test = grep( { $_ eq $_[0]; }
map( { $_->{'k'}; } @{ $_[2]{'select'}; } ) );
return $test

@ -116,6 +116,7 @@ sub types {
},
select => {
test => sub {
return ( 0, "Value is not a scalar" ) if ref( $_[0] );
my $test = grep ( { $_ eq $_[0] }
map ( { $_->{k} } @{ $_[2]->{select} } ) );
return $test

Loading…
Cancel
Save