diff options
| author | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-09 13:35:21 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@taniquetil.(none)> | 2009-08-09 13:35:21 +0200 |
| commit | 18c9a9da17ebea409c56ef9118a0adcc536f05c4 (patch) | |
| tree | 5e9f0d34a276db73d2bd8e946843e015c7fda13c /lib/LXRng/Context.pm | |
| parent | 172a21f37471c7d8ad55318dcdc61c51986d4452 (diff) | |
| parent | 52cab08b9bb06bcc822b4e8d99455e693b8b64ae (diff) | |
Merge branch 'master' of ssh://lxr.linux.no/home/argggh/git/lxrng
Diffstat (limited to 'lib/LXRng/Context.pm')
| -rw-r--r-- | lib/LXRng/Context.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/LXRng/Context.pm b/lib/LXRng/Context.pm index d316ede..bf717ab 100644 --- a/lib/LXRng/Context.pm +++ b/lib/LXRng/Context.pm @@ -43,6 +43,7 @@ sub new { my $path = $ENV{'REQUEST_URI'}; $path =~ s/\?.*//; $path =~ s,/+,/,g; + $path =~ s/%([0-9a-f][0-9a-f])/hex($1) >= 32 ? pack("C", hex($1)) : '_'/ge; $$self{'req_base'} = $host.$ENV{'SCRIPT_NAME'}; foreach my $p ($args{'query'}->param) { |