You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2005/03/17 20:41:37 UTC
svn commit: r157968 -
perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl
Author: geoff
Date: Thu Mar 17 11:41:35 2005
New Revision: 157968
URL: http://svn.apache.org/viewcvs?view=rev&rev=157968
Log:
remove CGI.pm workarounds left behind
Modified:
perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl
Modified: perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl?view=diff&r1=157967&r2=157968
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/ModPerl-Registry/t/conf/modperl_extra_startup.pl Thu Mar 17 11:41:35 2005
@@ -7,20 +7,6 @@
use Apache2::ServerUtil ();
use Apache2::Process ();
-BEGIN {
- ## XXX: Block of temporary hacks for CGI.pm
- *Apache::request = *Apache2::request;
- *Apache::server = *Apache2::server;
-
- for (qw/Response RequestRec RequestUtil/) {
- eval qq(
- \*Apache::$_\:: = \*Apache2::$_\::;
- \$INC{"Apache/$_.pm"} = ') . __FILE__ . "';";
- die $@ if $@;
- }
-}
-
-
use DirHandle ();
my $proc = Apache2->server->process;