From 81dc28a1fb7898d99e72ed4fbda6afd52fa7d019 Mon Sep 17 00:00:00 2001 From: Sebastian Riedel 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