svn commit: r1528836 - in /perl/modperl/trunk: Changes t/api/err_headers_out.t

[stevehay]

Author: stevehay
Date: Thu Oct  3 12:59:17 2013
New Revision: 1528836

URL: http://svn.apache.org/r1528836
Log:
Fix t/api/err_headers_out.t with HTTP::Headers > 6.00. Patch from Rolando 
<roloswo...@gmail.com>.

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

Modified: perl/modperl/trunk/Changes
URL: 
http://svn.apache.org/viewvc/perl/modperl/trunk/Changes?rev=1528836&r1=1528835&r2=1528836&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Thu Oct  3 12:59:17 2013
@@ -12,6 +12,9 @@ Also refer to the Apache::Test changes l
 
 =item 2.0.9-dev
 
+Fix t/api/err_headers_out.t with HTTP::Headers > 6.00. [Rolando
+<roloswo...@gmail.com>]
+
 Fix the build with VC++ and dmake (rather than nmake) on Windows. The
 Makefile generated by Apache2::Build uses shell commands for the manifest
 file, but neglected to tell dmake to use the shell. [Steve Hay]

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=1528836&r1=1528835&r2=1528836&view=diff
==============================================================================
--- perl/modperl/trunk/t/api/err_headers_out.t (original)
+++ perl/modperl/trunk/t/api/err_headers_out.t Thu Oct  3 12:59:17 2013
@@ -25,7 +25,7 @@ my $location = '/TestAPI__err_headers_ou
     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_ou
     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";