Force array reference for some Secure Token parameters (#288)

This commit is contained in:
Clément Oudot 2011-07-06 08:38:48 +00:00
parent e9423ed86c
commit e69d175174

View File

@ -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' );