From f1c35248b469c13f73c32a62efea9c37b7de5248 Mon Sep 17 00:00:00 2001 From: Slaven Rezic 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