| Subject: | t/api/err_headers_out.t fails for HTTP::Headers > 6.00 |
The workaround in t/api/err_headers_out.t works just for HTTP::Headers 6.00, but the problem still exists in later HTTP::Headers versions, and maybe will stay forever (see also https://rt.cpan.org/Ticket/Display.html?id=67258 ).
See the attached patch to fix this.
Regards,
Slaven
| Subject: | 0001-test-workaround-for-HTTP-Headers-6.00.patch |
From f1c35248b469c13f73c32a62efea9c37b7de5248 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <slaven@rezic.de>
Date: Fri, 26 Dec 2014 22:13:10 +0100
Subject: [PATCH] test workaround for HTTP::Headers > 6.00
---
t/api/err_headers_out.t | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/t/api/err_headers_out.t b/t/api/err_headers_out.t
index c9066e6..84a1ff8 100644
--- a/t/api/err_headers_out.t
+++ b/t/api/err_headers_out.t
@@ -25,7 +25,7 @@ my $location = '/TestAPI__err_headers_out';
local $HTTP::Headers::TRANSLATE_UNDERSCORE=
$HTTP::Headers::TRANSLATE_UNDERSCORE;
undef $HTTP::Headers::TRANSLATE_UNDERSCORE
- if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION==6.00;
+ if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION>=6.00;
ok t_cmp $res->header('X-err_headers_out'), "err_headers_out",
"X-err_headers_out: made it";
@@ -50,7 +50,7 @@ my $location = '/TestAPI__err_headers_out';
local $HTTP::Headers::TRANSLATE_UNDERSCORE=
$HTTP::Headers::TRANSLATE_UNDERSCORE;
undef $HTTP::Headers::TRANSLATE_UNDERSCORE
- if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION==6.00;
+ if defined HTTP::Headers->VERSION and HTTP::Headers->VERSION>=6.00;
ok t_cmp $res->header('X-err_headers_out'), "err_headers_out",
"X-err_headers_out: made it";
--
2.1.2