perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject svn commit: r157091 - perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl
Date Fri, 11 Mar 2005 15:03:53 GMT
Author: geoff
Date: Fri Mar 11 07:03:52 2005
New Revision: 157091

URL: http://svn.apache.org/viewcvs?view=rev&rev=157091
Log:
remove CGI.pm hacks

Modified:
    perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl

Modified: perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl?view=diff&r1=157090&r2=157091
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl (original)
+++ perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl Fri Mar 11 07:03:52
2005
@@ -22,19 +22,6 @@
 
 use File::Spec::Functions qw(canonpath catdir);
 
-BEGIN {
-    ## XXX: Block of temporary hacks for Apache::compat and 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 Apache2::ServerUtil ();
 use Apache2::ServerRec ();
 use Apache2::Process ();



Mime
View raw message