X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=lib%2FMaypole.pm;h=ace9776ae7d7800bccecc92423c241bb1f3a7f49;hb=1a1b33acd4fd5b3132d23d84242092996c18040e;hp=46fb7d4ac953451059e795351d89fbbc3652431a;hpb=0f0ccfbbe2488b34841e5af2ecedd9f256c8489f;p=maypole.git diff --git a/lib/Maypole.pm b/lib/Maypole.pm index 46fb7d4..ace9776 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; } @@ -79,7 +76,6 @@ sub handler_guts { $r->model_class->process($r); } else { # Otherwise, it's just a plain template. - $r->call_authenticate; # No harm in it delete $r->{model_class}; $r->{path} =~ s{/}{}; # De-absolutify $r->template($r->{path});