[Catalyst-commits] r11061 - Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine

[gbjk at dev.catalyst.perl.org]

Author: gbjk
Date: 2009-08-07 21:17:22 +0000 (Fri, 07 Aug 2009)
New Revision: 11061

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP.pm
Log:
Engine::HTTP - Fix paths for HTTP requests with scheme and domain in URI.


Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP.pm	2009-08-07 19:32:53 UTC (rev 11060)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Engine/HTTP.pm	2009-08-07 21:17:22 UTC (rev 11061)
@@ -368,6 +368,9 @@
     while (1) {
         my ( $path, $query_string ) = split /\?/, $uri, 2;
 
+        # URI is not the same as path. Remove scheme, domain name and port from it
+        $path =~ s{^https?://[^/?#]+}{};
+
         # Initialize CGI environment
         local %ENV = (
             PATH_INFO       => $path         || '',