From 41171a7d875dee2febd61adc1d5094aa1f1b8076 Mon Sep 17 00:00:00 2001 From: Simon Cozens Date: Thu, 19 Feb 2004 15:43:07 +0000 Subject: [PATCH] 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 --- lib/Maypole.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 {} -- 2.39.5