dougm 02/05/17 19:29:44
Modified: lib/Apache ParseSource.pm
lib/ModPerl Code.pm
t/apache constants.t
xs/tables/current/Apache ConstantsTable.pm
Log:
add Apache::REDIRECT shortcut constant
Revision Changes Path
1.37 +1 -1 modperl-2.0/lib/Apache/ParseSource.pm
Index: ParseSource.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- ParseSource.pm 1 Mar 2002 18:44:36 -0000 1.36
+++ ParseSource.pm 18 May 2002 02:29:44 -0000 1.37
@@ -218,7 +218,7 @@
#maintain a few handy shortcuts from 1.xx
#aliases are defined in ModPerl::Code
push @{ $constants{'Apache'}->{common} },
- qw(NOT_FOUND FORBIDDEN AUTH_REQUIRED SERVER_ERROR);
+ qw(NOT_FOUND FORBIDDEN AUTH_REQUIRED SERVER_ERROR REDIRECT);
return \%constants;
}
1.80 +1 -0 modperl-2.0/lib/ModPerl/Code.pm
Index: Code.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/Code.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -u -r1.79 -r1.80
--- Code.pm 12 May 2002 23:01:32 -0000 1.79
+++ Code.pm 18 May 2002 02:29:44 -0000 1.80
@@ -700,6 +700,7 @@
FORBIDDEN => 'HTTP_FORBIDDEN',
AUTH_REQUIRED => 'HTTP_UNAUTHORIZED',
SERVER_ERROR => 'HTTP_INTERNAL_SERVER_ERROR',
+ REDIRECT => 'HTTP_MOVED_TEMPORARILY',
);
sub constants_lookup_code {
1.5 +2 -1 modperl-2.0/t/apache/constants.t
Index: constants.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/constants.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- constants.t 6 Apr 2002 07:00:36 -0000 1.4
+++ constants.t 18 May 2002 02:29:44 -0000 1.5
@@ -8,8 +8,9 @@
use Apache::Const -compile => qw(DECLINED :http :common TAKE23 &OPT_EXECCGI);
use Apache::Const; #defaults to :common
-plan tests => 12;
+plan tests => 13;
+ok REDIRECT == 302;
ok AUTH_REQUIRED == 401;
ok OK == 0;
ok Apache::OK == 0;
1.25 +2 -1 modperl-2.0/xs/tables/current/Apache/ConstantsTable.pm
Index: ConstantsTable.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/xs/tables/current/Apache/ConstantsTable.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- ConstantsTable.pm 6 Apr 2002 00:39:59 -0000 1.24
+++ ConstantsTable.pm 18 May 2002 02:29:44 -0000 1.25
@@ -158,7 +158,8 @@
'NOT_FOUND',
'FORBIDDEN',
'AUTH_REQUIRED',
- 'SERVER_ERROR'
+ 'SERVER_ERROR',
+ 'REDIRECT'
],
'cmd_how' => [
'RAW_ARGS',
