[Catalyst-commits] r7639 - / trunk/Catalyst-Plugin-Authentication/lib/Catalyst/Plugin

zarquon at dev.catalyst.perl.org zarquon at dev.catalyst.perl.org
Tue Apr 29 07:26:19 BST 2008


Author: zarquon
Date: 2008-04-29 07:26:18 +0100 (Tue, 29 Apr 2008)
New Revision: 7639

Modified:
   /
   trunk/Catalyst-Plugin-Authentication/lib/Catalyst/Plugin/Authentication.pm
Log:
 r12988 at zaphod:  kd | 2008-04-29 16:12:24 +1000
 a couple of documentation fixes



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:12983
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909
   + 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:12988
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909

Modified: trunk/Catalyst-Plugin-Authentication/lib/Catalyst/Plugin/Authentication.pm
===================================================================
--- trunk/Catalyst-Plugin-Authentication/lib/Catalyst/Plugin/Authentication.pm	2008-04-28 14:48:32 UTC (rev 7638)
+++ trunk/Catalyst-Plugin-Authentication/lib/Catalyst/Plugin/Authentication.pm	2008-04-29 06:26:18 UTC (rev 7639)
@@ -624,7 +624,7 @@
                             },
                             store => {
                                 class => 'Minimal',
-            	                users = {
+            	                users => {
             	                    bob => {
             	                        password => "s00p3r",                	                    
             	                        editor => 'yes',
@@ -652,8 +652,8 @@
     sub login : Local {
         my ( $self, $c ) = @_;
 
-        if (    my $user     = $c->req->param("user")
-            and my $password = $c->req->param("password") )
+        if (    my $user     = $c->req->params->{user}
+            and my $password = $c->req->params->{password"} )
         {
             if ( $c->authenticate( { username => $user, 
                                      password => $password } ) ) {




More information about the Catalyst-commits mailing list