stas 2004/09/25 12:30:07
Modified: t/response/TestModperl merge.pm
t/response/TestDirective env.pm
Log:
unbreak the workaround
Revision Changes Path
1.12 +1 -1 modperl-2.0/t/response/TestModperl/merge.pm
Index: merge.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/merge.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -u -r1.11 -r1.12
--- merge.pm 25 Sep 2004 18:51:58 -0000 1.11
+++ merge.pm 25 Sep 2004 19:30:06 -0000 1.12
@@ -133,7 +133,7 @@
<VirtualHost TestModperl::merge>
# XXX: temp workaround
- PerlPostReadRequestHandler Apache::OK
+ PerlPostReadRequestHandler 'sub { use Apache::Const qw(DECLINED); DECLINED
}'
# these should pass through all merges untouched
PerlPassEnv APACHE_TEST_HOSTTYPE
1.6 +1 -1 modperl-2.0/t/response/TestDirective/env.pm
Index: env.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestDirective/env.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -u -r1.5 -r1.6
--- env.pm 25 Sep 2004 19:01:15 -0000 1.5
+++ env.pm 25 Sep 2004 19:30:07 -0000 1.6
@@ -88,7 +88,7 @@
PerlSetEnv TestDirective__env_srv2 env_srv2
# XXX: temp workaround
- PerlPostReadRequestHandler Apache::OK
+ PerlPostReadRequestHandler 'sub { use Apache::Const qw(DECLINED); DECLINED }'
# PerlPassEnv is only per-server
PerlPassEnv APACHE_TEST_HOSTNAME
