diff options
| -rw-r--r-- | perl/lib/Wallet/Kadmin/AD.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Wallet/Kadmin/AD.pm b/perl/lib/Wallet/Kadmin/AD.pm index 83912dd..2d93b32 100644 --- a/perl/lib/Wallet/Kadmin/AD.pm +++ b/perl/lib/Wallet/Kadmin/AD.pm @@ -280,8 +280,8 @@ sub get_service_id { my $this_prefix = substr($this_cn, 0, 20-$suffix_size); my $this_format = "%0${suffix_size}i"; while ($cnt<$loop_limit) { - my $this_cn = $this_prefix . sprintf($this_format, $cnt); - $this_dn = ldap_get_dn($this_base, "cn=$this_cn"); + $this_cn = $this_prefix . sprintf($this_format, $cnt); + $this_dn = $self->ldap_get_dn($this_base, "cn=$this_cn"); if (!$this_dn) { $this_id = $this_cn; last; |