bump version, patch for rt #56983

diff --git a/Changes b/Changes
index 14e8fb8..24716bf 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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

diff --git a/lib/Catalyst/Authentication/Store/LDAP.pm b/lib/Catalyst/Authentication/Store/LDAP.pm
index 60aef5a..11dfdc2 100644 (file)
--- a/lib/Catalyst/Authentication/Store/LDAP.pm
+++ b/lib/Catalyst/Authentication/Store/LDAP.pm
@@ -3,7 +3,7 @@ package Catalyst::Authentication::Store::LDAP;
 use strict;
 use warnings;
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 use Catalyst::Authentication::Store::LDAP::Backend;
 

diff --git a/lib/Catalyst/Authentication/Store/LDAP/Backend.pm b/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
index 1fdf22d..72b34bd 100644 (file)
--- a/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
+++ b/lib/Catalyst/Authentication/Store/LDAP/Backend.pm
@@ -72,7 +72,7 @@ use base qw( Class::Accessor::Fast );
 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 @@ sub find_user {
     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 @@ sub user_supports {
     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 @@ Returns get_user() for I<id>.
 
 sub from_session {
     my ( $self, $c, $id ) = @_;
-    $self->get_user($id);
+    $self->get_user($id, $c);
 }
 
 1;

diff --git a/lib/Catalyst/Authentication/Store/LDAP/User.pm b/lib/Catalyst/Authentication/Store/LDAP/User.pm
index d7339b3..fb00a4e 100644 (file)
--- a/lib/Catalyst/Authentication/Store/LDAP/User.pm
+++ b/lib/Catalyst/Authentication/Store/LDAP/User.pm
@@ -50,7 +50,7 @@ use strict;
 use warnings;
 use Scalar::Util qw/refaddr/;
 
-our $VERSION = '1.008';
+our $VERSION = '1.009';
 
 BEGIN { __PACKAGE__->mk_accessors(qw/user store/) }