From: Simon Cozens <simon@simon-cozens.org>
Date: Thu, 19 Feb 2004 15:43:07 +0000 (+0000)
Subject: Pass the request into authenticate twice. It makes sense.
X-Git-Tag: 2.10~293
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=41171a7d875dee2febd61adc1d5094aa1f1b8076;p=maypole.git

Pass the request into authenticate twice. It makes sense.


git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@69 48953598-375a-da11-a14b-00016c27c3ee
---

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index bbe4905..4e551eb 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -93,8 +93,8 @@ sub is_applicable {
 sub call_authenticate {
     my $self = shift;
     return $self->model_class->authenticate($self) if 
-        $self->model_class->can("authenticate");
-    return $self->authenticate();
+        $self->model_class->can("authenticate"); 
+    return $self->authenticate($self); # Interface consistency is a Good Thing
 }
 
 sub additional_data {}