From 81dc28a1fb7898d99e72ed4fbda6afd52fa7d019 Mon Sep 17 00:00:00 2001
From: Sebastian Riedel <sri@labs.kraih.com>
Date: Fri, 10 Sep 2004 00:33:01 +0000
Subject: [PATCH] Quick mod_perl2 fix

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@172 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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;
-- 
2.39.5