You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2004/08/08 21:06:31 UTC
cvs commit: modperl-2.0/t/hooks/TestHooks authz.pm
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;
}