Force array reference for some Secure Token parameters (#288)
This commit is contained in:
parent
e9423ed86c
commit
e69d175174
|
@ -55,6 +55,17 @@ sub defaultValuesInit {
|
|||
|| $secureTokenHeader
|
||||
|| 'Auth-Token';
|
||||
|
||||
# Force some parameters to be array references
|
||||
foreach (qw/secureTokenMemcachedServers secureTokenUrls/) {
|
||||
no strict 'refs';
|
||||
unless ( ref ${$_} eq "ARRAY" ) {
|
||||
$class->lmLog( "Transform $_ value into an array reference",
|
||||
'debug' );
|
||||
my @array = split( /\s+/, ${$_} );
|
||||
${$_} = \@array;
|
||||
}
|
||||
}
|
||||
|
||||
# Display found values in debug mode
|
||||
$class->lmLog( "secureTokenMemcachedServers: @$secureTokenMemcachedServers",
|
||||
'debug' );
|
||||
|
|
Loading…
Reference in New Issue
Block a user