$r->headers_in->set($field_name => $cgi->http($http_header));
}
$r->headers_in->set($field_name => $cgi->http($http_header));
}
+ $self->preprocess_location();
+
my $path = $cgi->url( -absolute => 1, -path_info => 1 );
my $loc = $cgi->url( -absolute => 1 );
{
my $path = $cgi->url( -absolute => 1, -path_info => 1 );
my $loc = $cgi->url( -absolute => 1 );
{
sub parse_location {
my $self = shift;
my $url = URI->new( shift @ARGV );
sub parse_location {
my $self = shift;
my $url = URI->new( shift @ARGV );
+
+ $self->preprocess_location();
+
(my $uri_base = $self->config->uri_base) =~ s:/$::;
my $root = URI->new( $uri_base )->path;
$self->{path} = $url->path;
(my $uri_base = $self->config->uri_base) =~ s:/$::;
my $root = URI->new( $uri_base )->path;
$self->{path} = $url->path;