Improve PATH_INFO split (#1175)

This commit is contained in:
Xavier Guimard 2017-02-24 11:23:16 +00:00
parent 7be468841b
commit 538c723b8c

View File

@ -25,8 +25,8 @@ sub new {
my $tmp = $self->script_name;
$self->env->{REQUEST_URI} = $self->env->{X_ORIGINAL_URI}
if ( $self->env->{X_ORIGINAL_URI} );
$self->env->{PATH_INFO} =~ s|^$tmp|/|;
$self->env->{PATH_INFO} =~ s|//+|/|g;
$self->env->{PATH_INFO} =~ s|^$tmp|/|;
$self->{uri} = uri_unescape( $self->env->{REQUEST_URI} );
$self->{uri} =~ s|//+|/|g;
$self->{error} = 0;