Fixed the model_class thing for empty model classes in authentication recipe.

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

diff --git a/lib/Maypole/Manual/Request.pod b/lib/Maypole/Manual/Request.pod
index bc2b303555fedc51257a4e446fefc499def7aba8..f9186563e440532604a84a0e91f62806fcf95585 100644 (file)
--- a/lib/Maypole/Manual/Request.pod
+++ b/lib/Maypole/Manual/Request.pod
@@ -536,7 +536,7 @@ a C<sub_authenticate> method based on the class:
         ...
         if ($r->{user}) {
             return $r->model_class->sub_authenticate($r)
-                if $r->model_class->can("sub_authenticate");
+                if $r->model_class && $r->model_class->can("sub_authenticate");
             return OK;
         }
         ...