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>