diff options
| -rw-r--r-- | FS/FS/part_export/ldap.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/part_export/ldap.pm b/FS/FS/part_export/ldap.pm index 776814c59..57d213af0 100644 --- a/FS/FS/part_export/ldap.pm +++ b/FS/FS/part_export/ldap.pm @@ -202,7 +202,7 @@ sub ldap_queue { } sub ldap_insert { #subroutine, not method - my $dn = ldap_connect(shift, shift, shift); + my $ldap = ldap_connect(shift, (my $dn = shift), shift); my %attrib = @_; my $status = $ldap->add( $dn, attrs => [ %attrib ] ); @@ -235,6 +235,6 @@ sub ldap_connect { my $status = $ldap->bind( $dn, %bind_options ); die $status->error if $status->is_error; - $dn; + $ldap; } |