[Catalyst-commits] r11525 - in Catalyst-Plugin-Authentication/0.10000/trunk: . lib/Catalyst/Authentication/Credential

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-14 00:34:35 +0000 (Wed, 14 Oct 2009)
New Revision: 11525

Modified:
   Catalyst-Plugin-Authentication/0.10000/trunk/Changes
   Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Authentication/Credential/Remote.pm
Log:
If this wasn't a patch in RT, I wouldn't be applying it

Modified: Catalyst-Plugin-Authentication/0.10000/trunk/Changes
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/trunk/Changes	2009-10-14 00:30:11 UTC (rev 11524)
+++ Catalyst-Plugin-Authentication/0.10000/trunk/Changes	2009-10-14 00:34:35 UTC (rev 11525)
@@ -1,6 +1,7 @@
 Revision history for Perl extension Catalyst::Plugin::Authentication
 
      - Fix typos in documentation (RT#49476)
+     - Fix compatibilty with Catalyst 5.70 (RT#50466)
 
 0.10015 Tue Sep 1 01:40:36 BST 2009
 

Modified: Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Authentication/Credential/Remote.pm
===================================================================
--- Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Authentication/Credential/Remote.pm	2009-10-14 00:30:11 UTC (rev 11524)
+++ Catalyst-Plugin-Authentication/0.10000/trunk/lib/Catalyst/Authentication/Credential/Remote.pm	2009-10-14 00:34:35 UTC (rev 11525)
@@ -45,7 +45,7 @@
     my $remuser;
     if ($self->source eq "REMOTE_USER") {    
         # compatibility hack:
-        if (defined($c->engine->env)) {
+        if ($c->engine->can('env') && defined($c->engine->env)) {
             # BEWARE: $c->engine->env was broken prior 5.80005
             $remuser = $c->engine->env->{REMOTE_USER};
         }