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 jo...@apache.org on 2005/03/08 16:21:14 UTC
svn commit: r156535 - in perl/modperl/branches/apache2-rename-unstable/t:
conf/modperl_extra.pl modules/reload.t
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);