From: Rafael Kitover <rkitover@io.com>
Date: Mon, 27 Apr 2009 11:20:49 +0000 (+0000)
Subject: AsCGI - revert PATH_INFO unescaping, was breaking Cat tests
X-Git-Tag: v1.0~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FHTTP-Request-AsCGI.git;a=commitdiff_plain;h=69cc0989cc485086308a6da8653acd948919ebb0

AsCGI - revert PATH_INFO unescaping, was breaking Cat tests
---

diff --git a/Changes b/Changes
index 30d3048..458a0c0 100644
--- 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
--- 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
--- 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,