From 7ee74cd1dd28ee902582e71cf8d3ebddd06c0599 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@pelargir.(none)>
Date: Tue, 8 Jul 2008 15:24:07 +0200
Subject: Better support for whitespace in filenames.

---
 lib/LXRng/Context.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/LXRng/Context.pm')

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) {
-- 
cgit v1.2.3