Re: PasswordPolicy control and SetPassword extension
Peter Marschall <[email protected]>
| Newsgroups | gmane.comp.lang.perl.modules.ldap |
|---|---|
| Organization | ADPM |
| Message-ID | <[email protected]> |
Hi, On Friday, 19. September 2008, Graham Barr wrote: > I will apply thins change, then cut a new release this weekend. Please find attached another fix which IMHO should go into the next release as well. Dunno if it isimportant: patch is against origin/next. Regards Peter -- Peter Marschall [email protected]
0001-use-resultCode-instead-of-incorrect-Code-found.patch
(text/x-diff, 967 B)
From 1ff0c69e9f5f7256ea7bce031abb2a7a52c83893 Mon Sep 17 00:00:00 2001 From: Peter Marschall <[email protected]> Date: Fri, 19 Sep 2008 18:51:16 +0200 Subject: [PATCH] use "resultCode" instead of incorrect "Code" (found by Daniel Stutz) --- lib/Net/LDAP/Extension.pm | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Net/LDAP/Extension.pm b/lib/Net/LDAP/Extension.pm index 9b0f6b8..ce64879 100644 --- a/lib/Net/LDAP/Extension.pm +++ b/lib/Net/LDAP/Extension.pm @@ -13,7 +13,7 @@ $VERSION = "1.01"; sub response_name { my $self = shift; - $self->sync unless exists $self->{Code}; + $self->sync unless exists $self->{resultCode}; exists $self->{responseName} ? $self->{responseName} @@ -24,7 +24,7 @@ sub response_name { sub response { my $self = shift; - $self->sync unless exists $self->{Code}; + $self->sync unless exists $self->{resultCode}; exists $self->{response} ? $self->{response} -- 1.5.6.5