X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;ds=sidebyside;f=lib%2FMaypole.pm;h=b18aac351ac44b21cb3d1ddd71a5021e4c19f35a;hb=b8e9dfcaf46ec9995b91b7c433c44de3c38a00dc;hp=e80490141760cfc16844b28e6943cc17d5d8f212;hpb=9de2e5c0ad43b2983e4aa02215685b69fd15d357;p=maypole.git

diff --git a/lib/Maypole.pm b/lib/Maypole.pm
index e804901..b18aac3 100644
--- a/lib/Maypole.pm
+++ b/lib/Maypole.pm
@@ -49,10 +49,10 @@ sub init {
 
 sub handler {
     # See Maypole::Workflow before trying to understand this.
-    my $class = shift;
+    my ( $class, $req ) = @_;
     $class->init unless $class->init_done;
     my $r = bless { config => $class->config }, $class;
-    $r->get_request();
+    $r->get_request($req);
     $r->parse_location();
     my $status = $r->handler_guts();
     return $status unless $status == OK;