dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Optimize #1718

Browse Source
This commit is contained in:
Xavier Guimard 2019-04-23 14:40:55 +02:00
parent a2b03dbbf7
commit c496d979f5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main/Run.pm
View File

@ -446,8 +446,7 @@ sub retrieveSession {
# 2. Get the session from cache or backend # 2. Get the session from cache or backend
my $session = $req->data->{session} = ( my $session = $req->data->{session} = (
Lemonldap::NG::Common::Session->new( Lemonldap::NG::Common::Session->new( {
{
storageModule => $class->tsv->{sessionStorageModule}, storageModule => $class->tsv->{sessionStorageModule},
storageModuleOptions => $class->tsv->{sessionStorageOptions}, storageModuleOptions => $class->tsv->{sessionStorageOptions},
cacheModule => $class->tsv->{sessionCacheModule}, cacheModule => $class->tsv->{sessionCacheModule},
@ -751,8 +750,11 @@ sub localUnlog {
## @rmethod buildAndLoadType(string package) ## @rmethod buildAndLoadType(string package)
# Try to load type or build it # Try to load type or build it
my %alreadyBuilt;
sub buildAndLoadType { sub buildAndLoadType {
my ( $class, $package ) = @_; my ( $class, $package ) = @_;
return if $alreadyBuilt{$package};
eval "require $package"; eval "require $package";
if ($@) { if ($@) {
my $lastError = $@; my $lastError = $@;
@ -768,6 +770,7 @@ EOF
die "Unable to build wrapper.\n First try: $lastError\n Auto-build: $@" die "Unable to build wrapper.\n First try: $lastError\n Auto-build: $@"
if ($@); if ($@);
} }
$alreadyBuilt{$package} = 1;
} }
## @rmethod protected postOutputFilter(string uri) ## @rmethod protected postOutputFilter(string uri)