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

[stas]

stas        2004/08/08 12:06:31

  Modified:    t/hooks/TestHooks authz.pm
  Log:
  test: $r->note_auth_failure;
  
  Revision  Changes    Path
  1.5       +3 -1      modperl-2.0/t/hooks/TestHooks/authz.pm
  
  Index: authz.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/hooks/TestHooks/authz.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -u -r1.4 -r1.5
  --- authz.pm  18 Jun 2003 08:59:04 -0000      1.4
  +++ authz.pm  8 Aug 2004 19:06:31 -0000       1.5
  @@ -14,7 +14,9 @@
       return $res if $res != Apache::OK;
   
       unless($r->user and $sent_pw) {
  -     $r->note_basic_auth_failure;
  +        # testing $r->note_auth_failure:
  +        # AuthType Basic + note_auth_failure == note_basic_auth_failure;
  +     $r->note_auth_failure;
        return Apache::HTTP_UNAUTHORIZED;
       }