$self->_fix_env( \%env );
- # hack for perl libraries that use FILENO (e.g. IPC::Run)
- # trying to patch FCGI.pm, but not got there yet :/
- local *FCGI::Stream::FILENO = sub { -2 }
- unless FCGI::Stream->can('FILENO');
-
$class->handle_request( env => \%env );
$proc_manager && $proc_manager->pm_post_dispatch();
if ( $env->{SERVER_SOFTWARE} =~ /lighttpd/ ) {
$env->{PATH_INFO} ||= delete $env->{SCRIPT_NAME};
}
- elsif ( $env->{SERVER_SOFTWARE} =~ /^nginx/ ) {
- my $script_name = $env->{SCRIPT_NAME};
- $env->{PATH_INFO} =~ s/^$script_name//g;
- }
# Fix the environment variables PATH_INFO and SCRIPT_NAME when running
# under IIS
+ # FIXME - How does this handle %7F?
elsif ( $env->{SERVER_SOFTWARE} =~ /IIS\/[6-9]\.[0-9]/ ) {
my @script_name = split(m!/!, $env->{PATH_INFO});
my @path_translated = split(m!/|\\\\?!, $env->{PATH_TRANSLATED});