diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-11-30 23:05:21 +0100 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2007-11-30 23:05:21 +0100 |
| commit | 31d1ae696661d7651f23943a974ce545289fea17 (patch) | |
| tree | 80555e6ee3ba6114d48e5a2f2c7fb3c45cefa7be /lib/LXRng/Context.pm | |
| parent | f35e367d61277573326be776f2eb8af5755657cd (diff) | |
Clean up req_url.
Diffstat (limited to 'lib/LXRng/Context.pm')
| -rw-r--r-- | lib/LXRng/Context.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/LXRng/Context.pm b/lib/LXRng/Context.pm index 3bc7a92..93edc6f 100644 --- a/lib/LXRng/Context.pm +++ b/lib/LXRng/Context.pm @@ -11,8 +11,9 @@ sub new { if ($args{'query'}) { # CGI::Simple appears to confuse '' with undef for SCRIPT_NAME. # $$self{'req_url'} = $args{'query'}->url(); - $$self{'req_url'} = - $args{'query'}->url(-base => 1).'/'.$ENV{'SCRIPT_NAME'}; + $$self{'req_url'} = $args{'query'}->url(-base => 1); + $$self{'req_url'} =~ s,/*$,/,; + $ENV{'SCRIPT_NAME'} =~ m,^/?(.*), and $$self{'req_url'} .= $1; foreach my $p ($args{'query'}->param) { $$self{'params'}{$p} = [$args{'query'}->param($p)]; @@ -157,7 +158,6 @@ sub base_url { my $base = $self->config->{'base_url'}; unless ($base) { $base = $$self{'req_url'}; - $base =~ s/lxr$//; } $base =~ s,/+$,,; |