cvs commit: modperl-2.0/t/hooks/TestHooks stacked_handlers.pm

[stas]

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;