AsCGI - revert PATH_INFO unescaping, was breaking Cat tests

diff --git a/Changes b/Changes
index 30d3048..458a0c0 100644 (file)
--- a/Changes
+++ b/Changes
@@ -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
 

diff --git a/dist.ini b/dist.ini
index 2487ac6..e30bbf3 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -1,5 +1,5 @@
 name = HTTP-Request-AsCGI
-version = 0.7
+version = 0.71
 license = Perl_5
 author  = Christian Hansen <ch@ngmedia.com>
 author  = Hans Dieter Pearcey <hdp@cpan.org>

diff --git a/lib/HTTP/Request/AsCGI.pm b/lib/HTTP/Request/AsCGI.pm
index bd8e387..ff9849a 100644 (file)
--- a/lib/HTTP/Request/AsCGI.pm
+++ b/lib/HTTP/Request/AsCGI.pm
@@ -50,7 +50,8 @@ sub new {
         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,