Re: On mod_perl-2.0.8 - err_headers_out.t Fails with HTTP::Headers 6.05

[Rolando]

On 01/10/13 20:11, Rolando wrote:

Test failing:

mod_perl-2.0.8/t/api/err_headers_out.t

Using:
- Perl v5.18.1
- mod_perl-2.0.8
- HTTP::Headers 6.05

I attached a diff with the changes I made to make the test pass.

I fixed the diff I previously attached. It was ignoring HTML::Headers 6.00

--- mod_perl-2.0.8/t/api/err_headers_out.t	2013-09-30 16:08:27.991373585 -0400
+++ mod_perl-2.0.8/t/api/err_headers_out.t.fixed	2013-09-30 16:09:07.535372148 -0400
@@ -25,7 +25,7 @@
     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 @@
     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";