Better regexp

This commit is contained in:
Xavier Guimard 2015-12-19 06:56:59 +00:00
parent f86885251c
commit 355b298a3a

View File

@ -2077,7 +2077,7 @@ sub setPersistentSessionInfo {
foreach my $k ( keys %{ $persistentSession->data } ) {
# Do not restore some parameters
next if $k =~ /^_session_(?:(?:u?)id|kind)$/;
next if $k =~ /^_session_(?:u?id|kind)$/;
$self->lmLog( "Restore persistent parameter $k", 'debug' );
$self->{sessionInfo}->{$k} = $persistentSession->data->{$k};
}