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 st...@apache.org on 2003/01/29 02:09:07 UTC
cvs commit: modperl-2.0/t/hooks/TestHooks stacked_handlers.pm
stas 2003/01/28 17:09:07
Modified: t/hooks/TestHooks stacked_handlers.pm
Log:
- compile DONE
- add comments
Revision Changes Path
1.2 +7 -2 modperl-2.0/t/hooks/TestHooks/stacked_handlers.pm
Index: stacked_handlers.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/stacked_handlers.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- stacked_handlers.pm 29 Jan 2003 01:04:33 -0000 1.1
+++ stacked_handlers.pm 29 Jan 2003 01:09:06 -0000 1.2
@@ -1,12 +1,16 @@
package TestHooks::stacked_handlers;
+# this test exercises the execution of the stacked handlers and test
+# whether the execution breaks when something different than OK or
+# DECLINED is returned
+
use strict;
use warnings FATAL => 'all';
use Apache::RequestRec ();
use Apache::RequestIO ();
-use Apache::Const -compile => qw(OK DECLINED);
+use Apache::Const -compile => qw(OK DECLINED DONE);
sub handler {
my $r = shift;
@@ -42,7 +46,8 @@
return Apache::DONE;
}
-# this one shouldn't get called, because the three has returned DONE
+# this one shouldn't get called, because the handler 'three' has
+# returned DONE
sub four {
my $r = shift;