Warn if authenticate doesn't return a value.

Turn on debugging for BeerDB.

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

diff --git a/ex/BeerDB.pm b/ex/BeerDB.pm
index 26f8e94cd249197ff919a9746120421e09245235..9d9867dcd49af94cfbdff4b1ebbdd037c4988c38 100644 (file)
--- a/ex/BeerDB.pm
+++ b/ex/BeerDB.pm
@@ -1,5 +1,5 @@
 package BeerDB;
-use Maypole::Application;
+use Maypole::Application qw/-Debug/;
 use Class::DBI::Loader::Relationship;
 
 BEGIN {

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 5fd048eb354f5b891cc5bd6d87edfffff9925998..13af1719bbb4954de5a005e017072d8dce7caed1 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -84,6 +84,7 @@ sub handler_guts {
     # We authenticate every request, needed for proper session management
     my $status;
     eval { $status = $r->call_authenticate };
+    warn "No return value from authenticate" unless $status;
     if ( my $error = $@ ) {
         $status = $r->call_exception($error);
         if ( $status != OK ) {