diff options
| author | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:38:00 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@lxr.linpro.no> | 2008-08-21 21:38:00 +0200 |
| commit | 52cab08b9bb06bcc822b4e8d99455e693b8b64ae (patch) | |
| tree | a6fc75d2c5f18b98213e4d126c9aab7a73110fa8 /lib/LXRng/Context.pm | |
| parent | 17034adefacae12d6522eecc4a9e1f6ad04430fc (diff) | |
| parent | 7ee74cd1dd28ee902582e71cf8d3ebddd06c0599 (diff) | |
Merge branch 'master' of /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) { |