cvs commit: modperl-2.0/t/response/TestAPI access2.pm

[stas]

stas        2004/08/08 16:01:39

  Modified:    t/response/TestAPI access2.pm
  Log:
  test: $r->some_auth_required when it's required
  
  Revision  Changes    Path
  1.3       +3 -0      modperl-2.0/t/response/TestAPI/access2.pm
  
  Index: access2.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/access2.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -u -r1.2 -r1.3
  --- access2.pm        8 Aug 2004 21:34:18 -0000       1.2
  +++ access2.pm        8 Aug 2004 23:01:38 -0000       1.3
  @@ -42,6 +42,9 @@
   sub handler {
       my $r = shift;
   
  +    # test: $r->some_auth_required;
  +    return Apache::SERVER_ERROR unless $r->some_auth_required;
  +
       my($rc, $sent_pw) = $r->get_basic_auth_pw;
       return $rc if $rc != Apache::OK;