stas        2004/07/16 17:20:02

  Modified:    t/response/TestAPI custom_response.pm
  Log:
  simplify the config
  
  Revision  Changes    Path
  1.2       +2 -3      modperl-2.0/t/response/TestAPI/custom_response.pm
  
  Index: custom_response.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/custom_response.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- custom_response.pm        17 Jul 2004 00:16:20 -0000      1.1
  +++ custom_response.pm        17 Jul 2004 00:20:02 -0000      1.2
  @@ -10,7 +10,7 @@
   
   use Apache::Const -compile => qw(FORBIDDEN);
   
  -sub access {
  +sub handler {
       my $r = shift;
   
       my $how = $r->args || '';
  @@ -24,11 +24,10 @@
   1;
   __END__
   <NoAutoConfig>
  -PerlModule TestAPI::custom_response
   <Location /TestAPI__custom_response>
       AuthName dummy
       AuthType none
  -    PerlAccessHandler TestAPI::custom_response::access
  +    PerlAccessHandler TestAPI::custom_response
   </Location>
   </NoAutoConfig>
   
  
  
  

Reply via email to