geoff 2003/09/10 18:57:33
Modified: t/hooks/TestHooks stacked_handlers2.pm
Log:
tweak test to set filename, avoiding errors in error_log
Revision Changes Path
1.2 +16 -5 modperl-2.0/t/hooks/TestHooks/stacked_handlers2.pm
Index: stacked_handlers2.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/stacked_handlers2.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- stacked_handlers2.pm 11 Aug 2003 20:34:22 -0000 1.1
+++ stacked_handlers2.pm 11 Sep 2003 01:57:33 -0000 1.2
@@ -19,28 +19,39 @@
callback(shift);
- return Apache::OK
+ return Apache::OK;
+}
+
+sub ok_fileset {
+
+ my $r = shift;
+
+ $r->filename(__FILE__);
+
+ callback($r);
+
+ return Apache::OK;
}
sub declined {
callback(shift);
- return Apache::DECLINED
+ return Apache::DECLINED;
}
sub auth_required {
callback(shift);
- return Apache::AUTH_REQUIRED
+ return Apache::AUTH_REQUIRED;
}
sub server_error {
callback(shift);
- return Apache::SERVER_ERROR
+ return Apache::SERVER_ERROR;
}
sub callback {
@@ -140,7 +151,7 @@
PerlPostReadRequestHandler TestHooks::stacked_handlers2::ok
TestHooks::stacked_handlers2::ok
# 1 run, 1 left behind
- PerlTransHandler TestHooks::stacked_handlers2::ok
TestHooks::stacked_handlers2::server_error
+ PerlTransHandler TestHooks::stacked_handlers2::ok_fileset
TestHooks::stacked_handlers2::server_error
<Location /TestHooks__stacked_handlers2>
# all 4 run
