From: Tomas Doran <bobtfish@bobtfish.net>
Date: Wed, 14 Oct 2009 00:34:35 +0000 (+0000)
Subject: If this wasn't a patch in RT, I wouldn't be applying it
X-Git-Tag: v0.10016~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0e28e47d62f9a4f1d61ae90644a10a0527bf6049;p=catagits%2FCatalyst-Plugin-Authentication.git

If this wasn't a patch in RT, I wouldn't be applying it
---

diff --git a/Changes b/Changes
index a1907d5..3ab3cae 100644
--- a/Changes
+++ b/Changes
@@ -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
 
diff --git a/lib/Catalyst/Authentication/Credential/Remote.pm b/lib/Catalyst/Authentication/Credential/Remote.pm
index 55b485f..873f37e 100644
--- a/lib/Catalyst/Authentication/Credential/Remote.pm
+++ b/lib/Catalyst/Authentication/Credential/Remote.pm
@@ -45,7 +45,7 @@ sub authenticate {
     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};
         }