updated tests, and exception handling a little

[maypole.git] / lib / Maypole.pm

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 83607c8db34137662cf0694cf8a494179d319d18..b832f8b222781ad1f5b6c458d2e6c838867b7319 100644 (file)
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -922,7 +922,7 @@ processed.
 
 sub exception { 
     my ($self, $error, $when) = @_;
-    if ($self->view_object->can("report_error") and $self->debug) {
+    if (ref $self->view_object && $self->view_object->can("report_error") and $self->debug) {
         $self->view_object->report_error($self, $error, $when);
         return OK;
     }