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

Rolando <[email protected]> Tue, 1 Oct 2013 20:11:43 -0400

Newsgroups	gmane.comp.apache.mod-perl
Message-ID	<CAMFFSowa4OTdA5okWqSRyxwrjP1M_tJ2DOH=EbVQJwE-YyOBAQ@mail.gmail.com>

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.

err_headers_out.t.diff (application/octet-stream, 974 B)

--- 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";