[Catalyst-commits] r13184 - in Catalyst-Authentication-Store-LDAP/trunk: . lib/Catalyst/Authentication/Store lib/Catalyst/Authentication/Store/LDAP

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2010-04-28 04:35:16 +0100 (Wed, 28 Apr 2010)
New Revision: 13184

Modified:
   Catalyst-Authentication-Store-LDAP/trunk/Changes
   Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP.pm
   Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
   Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm
Log:
bump version, patch for rt #56983

Modified: Catalyst-Authentication-Store-LDAP/trunk/Changes
===================================================================
--- Catalyst-Authentication-Store-LDAP/trunk/Changes	2010-04-26 19:25:18 UTC (rev 13183)
+++ Catalyst-Authentication-Store-LDAP/trunk/Changes	2010-04-28 03:35:16 UTC (rev 13184)
@@ -1,3 +1,9 @@
+1.009  xxx
+   - Fix pod for get_user() and from_session() in Backend.pm, adding
+     the missing $c param. Pass $c in from_session() through to get_user().
+     Reported in https://rt.cpan.org/Ticket/Display.html?id=56983 with
+     patch from Bjørn-Olav Strand.
+
 1.008  02 April 2010
    - Allow for multiple uid values on a User object. See RT
      https://rt.cpan.org/Ticket/Display.html?id=51505

Modified: Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/Backend.pm	2010-04-26 19:25:18 UTC (rev 13183)
+++ Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/Backend.pm	2010-04-28 03:35:16 UTC (rev 13184)
@@ -72,7 +72,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 use Catalyst::Authentication::Store::LDAP::User;
 use Net::LDAP;
@@ -145,7 +145,7 @@
     return $self->get_user( $authinfo->{id} || $authinfo->{username}, $c );
 }
 
-=head2 get_user($id)
+=head2 get_user( I<id>, $c)
 
 Creates a L<Catalyst::Authentication::Store::LDAP::User> object
 for the given User ID, or calls C<new> on the class specified in
@@ -429,7 +429,7 @@
     Catalyst::Authentication::Store::LDAP::User->supports(@_);
 }
 
-=head2 from_session( I<id> )
+=head2 from_session( I<id>, I<$c> )
 
 Returns get_user() for I<id>.
 
@@ -437,7 +437,7 @@
 
 sub from_session {
     my ( $self, $c, $id ) = @_;
-    $self->get_user($id);
+    $self->get_user($id, $c);
 }
 
 1;

Modified: Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm	2010-04-26 19:25:18 UTC (rev 13183)
+++ Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP/User.pm	2010-04-28 03:35:16 UTC (rev 13184)
@@ -50,7 +50,7 @@
 use warnings;
 use Scalar::Util qw/refaddr/;
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 BEGIN { __PACKAGE__->mk_accessors(qw/user store/) }
 

Modified: Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP.pm
===================================================================
--- Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP.pm	2010-04-26 19:25:18 UTC (rev 13183)
+++ Catalyst-Authentication-Store-LDAP/trunk/lib/Catalyst/Authentication/Store/LDAP.pm	2010-04-28 03:35:16 UTC (rev 13184)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 use Catalyst::Authentication::Store::LDAP::Backend;