- if ($mod_perl) {
- Apache->request->uri($ENV{REQUEST_URI});
- print STDOUT "Status: 404 Not Found";
- Apache::exit();
- } else {
- print STDOUT "Status: 404 Not Found\n\nNot found: $ENV{REQUEST_URI}";
- exit;
- }
- }
- my $pi = $1;
- $ENV{PLP_NAME} =~ s/\Q$pi\E$//;
- $path_info = $pi . $path_info;
- }
-
- if ($mod_perl) {
- Apache->request->uri($ENV{REQUEST_URI});
- }
-
- if (not -r $file) {
- if (exists $ENV{MOD_PERL}) {
- print STDOUT "Status: 403 Forbidden";
- Apache::exit();
- } else {
- print STDOUT "Status: 403 Forbidden\n\nForbidden: $ENV{REQUEST_URI}";
- exit;
- }
- }
-
- delete @ENV{
- qw(PATH_TRANSLATED SCRIPT_NAME SCRIPT_FILENAME PATH_INFO),
- grep { /^REDIRECT_/ } keys %ENV
- };
-
- $ENV{PATH_INFO} = $path_info if defined $path_info;
- $ENV{PLP_FILENAME} = $file;
- (my $dir = $file) =~ s{/[^/]+$}[];
- chdir $dir;
-
- $PLP::code = PLP::source($file, 0);
- tie *PLPOUT, 'PLP::Tie::Print';
- select PLPOUT;
-}