[Catalyst-commits] r6643 - in trunk/Catalyst-Model-LDAP: . lib/Catalyst/Model lib/Catalyst/Model/LDAP

[dwc at dev.catalyst.perl.org]

Author: dwc
Date: 2007-08-11 07:24:39 +0100 (Sat, 11 Aug 2007)
New Revision: 6643

Modified:
   trunk/Catalyst-Model-LDAP/Changes
   trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP.pm
   trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm
Log:
Minor updates to r6631 to track source of change and revert version number change (0.16 is unreleased, hence the _01)

Modified: trunk/Catalyst-Model-LDAP/Changes
===================================================================
--- trunk/Catalyst-Model-LDAP/Changes	2007-08-11 00:45:07 UTC (rev 6642)
+++ trunk/Catalyst-Model-LDAP/Changes	2007-08-11 06:24:39 UTC (rev 6643)
@@ -1,13 +1,12 @@
 Revision history for Perl extension Catalyst::Model::LDAP.
-0.17  Thu Aug 09 10:40:00 CET 2007    
-        - Fix Connection->search to handle array-return from 
-          $mesg->control.
           
 0.16
         - Fix Catalyst::Model::LDAP::Entry's constructor
         - Reorganize tests a little
         - Move exception on connection failure from ACCEPT_CONTEXT to
           Catalyst::Model::LDAP::Connection->new
+        - Fix Catalyst::Model::LDAP::Connection->search to handle
+          list-return from Net::LDAP::Message->control (omega)
 
 0.15  Fri Feb 23 11:37:25 EST 2007
         - Throw runtime require errors

Modified: trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm
===================================================================
--- trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm	2007-08-11 00:45:07 UTC (rev 6642)
+++ trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm	2007-08-11 06:24:39 UTC (rev 6643)
@@ -190,8 +190,7 @@
         $mesg = $self->next::method(%args);
         my @resp = $mesg->control(LDAP_CONTROL_VLVRESPONSE) or
             croak 'Could not get pager from LDAP response: ' . $mesg->server_error;
-        my $resp = $resp[0];
-        $pager = Data::Page->new($resp->content, $rows, $page);
+        $pager = Data::Page->new($resp[0]->content, $rows, $page);
     }
     else {
         $mesg = $self->next::method(%args);

Modified: trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP.pm
===================================================================
--- trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP.pm	2007-08-11 00:45:07 UTC (rev 6642)
+++ trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP.pm	2007-08-11 06:24:39 UTC (rev 6643)
@@ -5,7 +5,7 @@
 use base qw/Catalyst::Model/;
 use Carp qw/croak/;
 
-our $VERSION = '0.1701';
+our $VERSION = '0.16_01';
 
 =head1 NAME