|
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 |
- |
|
|