From bd9c9d13dcb93e43c7fa7f6685da3155c896aad5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Cl=C3=A9ment=20Oudot?= Date: Wed, 24 Mar 2010 15:53:55 +0000 Subject: [PATCH] LDAP: change test for Net::LDAP minimal version for ppolicy feature --- .../lib/Lemonldap/NG/Portal/_LDAP.pm | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_LDAP.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_LDAP.pm index 1e504ccdf..ad06f826a 100644 --- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_LDAP.pm +++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/_LDAP.pm @@ -98,12 +98,10 @@ sub loadPP { return 1 if ($ppLoaded); # Minimal version of Net::LDAP required - eval { use Net::LDAP 0.38 }; - if ($@) { - $self->{portal}->lmLog( - "Module Net::LDAP is too old for password policy, please install version 0.38 or higher", - 'error' ); - return 0; + if ( $Net::LDAP::VERSION < 0.38 ) { + $self->{portal}->abort( +"Module Net::LDAP is too old for password policy, please install version 0.38 or higher" + ); } # Require Perl module