Fix PATH_INFO from REQUEST_URI for FCGI.

KnowZero · Jun 29, 2012 · 2c7c44d · 2c7c44d
1 parent 4f68dc4
commit 2c7c44d
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/lib/Plack/Middleware/IIS6ScriptNameFix.pm b/lib/Plack/Middleware/IIS6ScriptNameFix.pm
@@ -7,7 +7,11 @@ sub call {
     my($self, $env) = @_;
 
     if ($env->{SERVER_SOFTWARE} && $env->{SERVER_SOFTWARE} =~ /IIS\/[6-9]\.[0-9]/) {
-        my @script_name = split(m!/!, $env->{PATH_INFO});
+
+        my ($path) = ( $env->{REQUEST_URI} =~ /^([^?]*)(?:\?.*)?$/s );
+        $path =~ s/#.*$// if defined && length; # dumb clients sending URI fragments
+
+        my @script_name = split(m!/!, URI::Escape::uri_unescape($path));
         my @path_translated = split(m!/|\\\\?!, $env->{PATH_TRANSLATED});
         my @path_info;