$self->{path} = $self->{cgi}->url( -absolute => 1, -path_info => 1 );
my $loc = $self->{cgi}->url( -absolute => 1 );
no warnings 'uninitialized';
- $self->{path} =~ s/^($loc)?\///;
$self->{path} .= '/' if $self->{path} eq $loc;
+ $self->{path} =~ s/^($loc)?\///;
$self->parse_path;
$self->parse_args;
}