Lines 502-507
sub mock_net_ldap_entry {
Link Here
|
502 |
# ... Horrible hack |
502 |
# ... Horrible hack |
503 |
sub reload_ldap_module { |
503 |
sub reload_ldap_module { |
504 |
delete $INC{'C4/Auth_with_ldap.pm'}; |
504 |
delete $INC{'C4/Auth_with_ldap.pm'}; |
|
|
505 |
$SIG{__WARN__} = sub { # Removing "Subroutine * redefined at " warnings |
506 |
|
507 |
my $warning = shift; |
508 |
warn $warning unless $warning =~ /Subroutine .* redefined at/; |
509 |
}; |
505 |
require C4::Auth_with_ldap; |
510 |
require C4::Auth_with_ldap; |
506 |
C4::Auth_with_ldap->import; |
511 |
C4::Auth_with_ldap->import; |
507 |
return; |
512 |
return; |
508 |
- |
|
|