From f5a5f41f3b3a8827c6d737647fc45bb714803e4c Mon Sep 17 00:00:00 2001 From: Joe Schaefer Date: Sat, 5 Feb 2011 18:39:05 +0000 Subject: [PATCH] base handles this for us git-svn-id: https://svn.apache.org/repos/asf/httpd/apreq/trunk@1067479 13f79535-47bb-0310-9956-ffa450edef68 --- glue/perl/lib/APR/Request/Magic.pm | 2 -- 1 file changed, 2 deletions(-) diff --git a/glue/perl/lib/APR/Request/Magic.pm b/glue/perl/lib/APR/Request/Magic.pm index 9e0bc803..a8d724e4 100644 --- a/glue/perl/lib/APR/Request/Magic.pm +++ b/glue/perl/lib/APR/Request/Magic.pm @@ -4,13 +4,11 @@ my $ctx; eval { local $ENV{PERL_DL_NONLAZY} = 1; require APR::Request::Apache2; }; if ($@) { require APR::Request::CGI; - require APR::Pool; base->import("APR::Pool"); *handle = sub { $ctx ||= bless APR::Pool->new; APR::Request::CGI->handle($ctx, @_) }; our $MODE = "CGI"; } else { - require Apache2::RequestRec; require Apache2::RequestUtil; base->import("Apache2::RequestRec"); *handle = sub { APR::Request::Apache2->handle(Apache2::RequestUtil->request, @_) };