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

Restore available() conf (Closes: #1934)

Browse Source
This commit is contained in:
Xavier Guimard 2019-09-16 16:08:19 +02:00
parent 7e2de7853b
commit fe2cc803f7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lemonldap-ng-common/lib/Lemonldap/NG/Common/Conf.pm
View File

@ -400,18 +400,18 @@ sub getDBConf {
sub _launch { sub _launch {
my $self = shift; my $self = shift;
my $sub = shift; my $sub = shift;
my $res; my @res;
eval { eval {
local $SIG{ALRM} = sub { die "TIMEOUT\n" }; local $SIG{ALRM} = sub { die "TIMEOUT\n" };
eval { eval {
alarm( $self->{confTimeout} || 10 ); alarm( $self->{confTimeout} || 10 );
$res = &{ $self->{type} . "::$sub" }( $self, @_ ); @res = &{ $self->{type} . "::$sub" }( $self, @_ );
}; };
alarm 0; alarm 0;
die $@ if $@; die $@ if $@;
}; };
$msg .= $@ if $@; $msg .= $@ if $@;
return $res; return wantarray ? (@res) : $res[0];
} }
## @method boolean prereq() ## @method boolean prereq()