You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by to...@apache.org on 2011/04/06 10:29:23 UTC

svn commit: r1089349 - /perl/modperl/trunk/t/api/err_headers_out.t

Author: torsten
Date: Wed Apr  6 08:29:23 2011
New Revision: 1089349

URL: http://svn.apache.org/viewvc?rev=1089349&view=rev
Log:
HTTP::Headers at least in version 6.00 does not translate underscores to minus when storing headers but does so when they are read.

Modified:
    perl/modperl/trunk/t/api/err_headers_out.t

Modified: perl/modperl/trunk/t/api/err_headers_out.t
URL: http://svn.apache.org/viewvc/perl/modperl/trunk/t/api/err_headers_out.t?rev=1089349&r1=1089348&r2=1089349&view=diff
==============================================================================
--- perl/modperl/trunk/t/api/err_headers_out.t (original)
+++ perl/modperl/trunk/t/api/err_headers_out.t Wed Apr  6 08:29:23 2011
@@ -19,6 +19,7 @@ my $location = '/TestAPI__err_headers_ou
 
     ok t_cmp $res->code, 200, "OK";
 
+    local $HTTP::Headers::TRANSLATE_UNDERSCORE;
     ok t_cmp $res->header('X-err_headers_out'), "err_headers_out",
         "X-err_headers_out: made it";
 
@@ -36,6 +37,7 @@ my $location = '/TestAPI__err_headers_ou
 
     ok t_cmp $res->code, 404, "not found";
 
+    local $HTTP::Headers::TRANSLATE_UNDERSCORE;
     ok t_cmp $res->header('X-err_headers_out'), "err_headers_out",
         "X-err_headers_out: made it";