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

omega at dev.catalyst.perl.org omega at dev.catalyst.perl.org
Thu Aug 9 10:36:13 GMT 2007


Author: omega
Date: 2007-08-09 10:36:13 +0100 (Thu, 09 Aug 2007)
New Revision: 6633

Modified:
   trunk/Catalyst-Model-LDAP/
   trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm
Log:
 r15955 at andreas-marienborgs-computer:  andreas | 2007-08-09 10:59:45 +0200
 small fixes to the fix



Property changes on: trunk/Catalyst-Model-LDAP
___________________________________________________________________
Name: svk:merge
   - 20164c6d-cd09-0410-925d-b4c4e616b846:/local/Catalyst-Model-LDAP:15102
d5d31d6e-1f00-0410-95d2-b6c42ccb6655:/trunk:90
ea49d7f7-7c45-40ca-be27-1349e20c1c07:/local/c-model-ldap:15953
   + 20164c6d-cd09-0410-925d-b4c4e616b846:/local/Catalyst-Model-LDAP:15102
d5d31d6e-1f00-0410-95d2-b6c42ccb6655:/trunk:90
ea49d7f7-7c45-40ca-be27-1349e20c1c07:/local/c-model-ldap:15955

Modified: trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm
===================================================================
--- trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm	2007-08-09 09:26:24 UTC (rev 6632)
+++ trunk/Catalyst-Model-LDAP/lib/Catalyst/Model/LDAP/Connection.pm	2007-08-09 09:36:13 UTC (rev 6633)
@@ -188,9 +188,9 @@
         push @{ $args{control} }, $vlv;
 
         $mesg = $self->next::method(%args);
-        my $resp = $mesg->control(LDAP_CONTROL_VLVRESPONSE) or
+        my @resp = $mesg->control(LDAP_CONTROL_VLVRESPONSE) or
             croak 'Could not get pager from LDAP response: ' . $mesg->server_error;
-        $resp = $resp->[0] if (ref($resp) eq 'ARRAY');
+        my $resp = $resp[0];
         $pager = Data::Page->new($resp->content, $rows, $page);
     }
     else {




More information about the Catalyst-commits mailing list