svn commit: r156535 - in perl/modperl/branches/apache2-rename-unstable/t: conf/modperl_extra.pl modules/reload.t

[joes]

Author: joes
Date: Tue Mar  8 07:21:08 2005
New Revision: 156535

URL: http://svn.apache.org/viewcvs?view=rev&rev=156535
Log:
Fix the t/modules tests.

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

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=156534&r2=156535
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl 
(original)
+++ perl/modperl/branches/apache2-rename-unstable/t/conf/modperl_extra.pl Tue 
Mar  8 07:21:08 2005
@@ -28,8 +28,8 @@
     *Apache::server = *Apache2::server;
 
     for (qw/Response RequestRec RequestUtil/) {
-        eval qq(package Apache::$_;
-                use base "Apache2::$_";
+        eval qq(
+                \*Apache::$_\:: = \*Apache2::$_\::;
                 \$INC{"Apache/$_.pm"} = ') . __FILE__ . "';";
         die $@ if $@;
     }

Modified: perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t?view=diff&r1=156534&r2=156535
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t (original)
+++ perl/modperl/branches/apache2-rename-unstable/t/modules/reload.t Tue Mar  8 
07:21:08 2005
@@ -11,7 +11,7 @@
 plan tests => 3;
 
 my $test_file = catfile Apache::Test::vars("serverroot"),
-    qw(lib Apache Reload Test.pm);
+    qw(lib Apache2 Reload Test.pm);
 
 my $module   = 'TestModules::reload';
 my $location = '/' . Apache::TestRequest::module2path($module);