According to mod_perl documentation (porting/compat):
REDIRECT and similar constants have been deprecated in Apache for
years, in favor of the HTTP_* names (they no longer exist Apache
2.0). mod_perl 2.0 API performs the following aliasing behind the
scenes
$ENV{PLP_FILENAME} = my $filename = $r->filename;
unless (-f $filename) {
- return MP2 ? Apache2::Const::NOT_FOUND() : Apache::Constants::NOT_FOUND();
+ return MP2 ? Apache2::Const::HTTP_NOT_FOUND() : Apache::Constants::NOT_FOUND();
}
unless (-r _) {
- return MP2 ? Apache2::Const::FORBIDDEN() : Apache::Constants::FORBIDDEN();
+ return MP2 ? Apache2::Const::HTTP_FORBIDDEN() : Apache::Constants::FORBIDDEN();
}
$ENV{PLP_NAME} = $r->uri;