diff options
| author | Arne Georg Gleditsch <argggh@pelargir.(none)> | 2008-07-08 15:24:07 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <argggh@pelargir.(none)> | 2008-07-08 15:24:07 +0200 |
| commit | 7ee74cd1dd28ee902582e71cf8d3ebddd06c0599 (patch) | |
| tree | a749c72ca3b717b46ff98b8b4bc5b99cda9945cf /lib/LXRng/Context.pm | |
| parent | a25f8442450d7e9fb188a979ab0897cb86e9d84f (diff) | |
Better support for whitespace in filenames.
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) { |