diff options
author | ivan <ivan> | 2002-11-20 09:10:02 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-11-20 09:10:02 +0000 |
commit | 4631154982b0607405c2cabc8f1a718445307f4d (patch) | |
tree | 7a7ac74eb1a9108d86ca0cdf8953c8b445a4df43 | |
parent | cfd4d4d5fd2c64f0f0512905a465aeb4abce484c (diff) |
fix silly bug in ldap export
-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; } |