[Catalyst-commits] r9883 - in HTTP-Request-AsCGI/trunk: . lib/HTTP/Request

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-04-27 12:20:49 +0100 (Mon, 27 Apr 2009)
New Revision: 9883

Modified:
   HTTP-Request-AsCGI/trunk/Changes
   HTTP-Request-AsCGI/trunk/dist.ini
   HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm
Log:
AsCGI - revert PATH_INFO unescaping, was breaking Cat tests

Modified: HTTP-Request-AsCGI/trunk/Changes
===================================================================
--- HTTP-Request-AsCGI/trunk/Changes	2009-04-27 05:30:43 UTC (rev 9882)
+++ HTTP-Request-AsCGI/trunk/Changes	2009-04-27 11:20:49 UTC (rev 9883)
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension HTTP::Request::AsCGI.
 
+0.71 2009-04-27
+    - revert PATH_INFO change, Catalyst tests were failing
+
 0.7 2009-04-26
     - PATH_INFO is now uri_unescaped
 

Modified: HTTP-Request-AsCGI/trunk/dist.ini
===================================================================
--- HTTP-Request-AsCGI/trunk/dist.ini	2009-04-27 05:30:43 UTC (rev 9882)
+++ HTTP-Request-AsCGI/trunk/dist.ini	2009-04-27 11:20:49 UTC (rev 9883)
@@ -1,5 +1,5 @@
 name = HTTP-Request-AsCGI
-version = 0.7
+version = 0.71
 license = Perl_5
 author  = Christian Hansen <ch at ngmedia.com>
 author  = Hans Dieter Pearcey <hdp at cpan.org>

Modified: HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm
===================================================================
--- HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm	2009-04-27 05:30:43 UTC (rev 9882)
+++ HTTP-Request-AsCGI/trunk/lib/HTTP/Request/AsCGI.pm	2009-04-27 11:20:49 UTC (rev 9883)
@@ -50,7 +50,8 @@
         GATEWAY_INTERFACE => 'CGI/1.1',
         HTTP_HOST         => $uri->host_port,
         HTTPS             => ( $uri->scheme eq 'https' ) ? 'ON' : 'OFF',  # not in RFC 3875
-        PATH_INFO         => URI::Escape::uri_unescape($uri->path),
+#        PATH_INFO         => URI::Escape::uri_unescape($uri->path),
+        PATH_INFO         => $uri->path,
         QUERY_STRING      => $uri->query || '',
         SCRIPT_NAME       => '/',
         SERVER_NAME       => $uri->host,