X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=e4b36bc8e2ebcf4af32672de145aa154ad457dd8;hb=8237e83ed726d86f1ef754e51077eb2aff0cd4ed;hp=46fb7d4ac953451059e795351d89fbbc3652431a;hpb=0f0ccfbbe2488b34841e5af2ecedd9f256c8489f;p=maypole.git

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index 46fb7d4..e4b36bc 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -4,7 +4,7 @@ use attributes ();
 use UNIVERSAL::require;
 use strict;
 use warnings;
-our $VERSION = "1.3";
+our $VERSION = "1.4";
 __PACKAGE__->mk_classdata($_) for qw( config init_done view_object );
 __PACKAGE__->mk_accessors ( qw( ar params query objects model_class
 args action template ));
@@ -55,10 +55,7 @@ sub handler {
     $r->get_request();
     $r->parse_location();
     my $status = $r->handler_guts();
-    if ($status != OK) {
-        warn "NOT OK!";
-        return $status;
-    }
+    return $status unless $status == OK;
     $r->send_output;
     return $status;
 }