FAQ
t/api/err_headers_out.t was recently changed to accommodate changes in HTTP::Headers 6.0, but the change did not make it forward-compatible for further versions of HTTP::Headers. The patch for the test script is below at the end. Thank you. HTH. -Mark

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:17:16 Mon $ t/TEST -clean

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:17:25 Mon $ t/TEST -verbose t/api/err_headers_out.t
/ntfhome/local/sbin/httpd -d /ntfhome/local/src/perl/mod_perl-2.0.8/t -f /ntfhome/local/src/perl/mod_perl-2.0.8/t/conf/httpd.conf -D APACHE2 -D PERL_USEITHREADS
using Apache/2.2.27 (prefork MPM)

waiting 120 seconds for server to start: .[Mon Jun 23 00:17:36 2014] [info] 6 Apache2:: modules loaded
[Mon Jun 23 00:17:36 2014] [info] 0 APR:: modules loaded
[Mon Jun 23 00:17:36 2014] [info] base server + 29 vhosts ready to run tests
....
waiting 120 seconds for server to start: ok (waited 4 secs)
server localhost:8529 started
server localhost:8530 listening (filter_out_apache)
server localhost:8531 listening (perlsections)
server localhost:8532 listening (inherit)
server localhost:8533 listening (TestModperl::merge)
server localhost:8534 listening (TestModperl::perl_options)
server localhost:8535 listening (TestModperl::perl_options2)
server localhost:8536 listening (TestModperl::setupenv)
server localhost:8537 listening (TestModules::proxy)
server localhost:8538 listening (TestUser::rewrite)
server localhost:8539 listening (TestVhost::config)
server localhost:8540 listening (TestVhost::log)
server localhost:8541 listening (TestProtocol::echo_bbs)
server localhost:8542 listening (TestProtocol::echo_bbs2)
server localhost:8543 listening (TestProtocol::echo_block)
server localhost:8544 listening (TestProtocol::echo_filter)
server localhost:8545 listening (TestProtocol::echo_nonblock)
server localhost:8546 listening (TestProtocol::echo_timeout)
server localhost:8547 listening (TestProtocol::pseudo_http)
server localhost:8548 listening (TestPreConnection::note)
server localhost:8549 listening (TestHooks::hookrun)
server localhost:8550 listening (TestHooks::init)
server localhost:8551 listening (TestHooks::stacked_handlers2)
server localhost:8552 listening (TestHooks::startup)
server localhost:8553 listening (TestHooks::trans)
server localhost:8554 listening (TestFilter::both_str_con_add)
server localhost:8555 listening (TestFilter::in_bbs_inject_header)
server localhost:8556 listening (TestFilter::in_bbs_msg)
server localhost:8557 listening (TestFilter::in_str_msg)
server localhost:8558 listening (TestDirective::perlmodule)
server localhost:8559 listening (TestDirective::perlrequire)
server localhost:8560 listening (TestAPI::add_config)
server localhost:8561 listening (TestDirective::perlloadmodule3)
server localhost:8562 listening (TestDirective::perlloadmodule4)
server localhost:8563 listening (TestDirective::perlloadmodule5)
server localhost:8564 listening (TestDirective::perlloadmodule6)
server localhost:8565 listening (TestHooks::push_handlers_anon)
t/api/err_headers_out.t ..
1..6
# Running under perl version 5.020000 for linux
# Current time local: Mon Jun 23 00:17:41 2014
# Current time GMT: Mon Jun 23 07:17:41 2014
# Using Test.pm version 1.26
# Using Apache/Test.pm version 1.37
# HTTP/1.1 200 OK
# Connection: close
# Date: Mon, 23 Jun 2014 07:17:42 GMT
# Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
# Content-Length: 0
# Content-Type: text/plain
# Client-Date: Mon, 23 Jun 2014 07:17:42 GMT
# Client-Peer: 127.0.0.1:8529
# Client-Response-Num: 1
# X-Err_headers_out: err_headers_out
# X-Headers_out: headers_out
# testing : OK
# expected: 200
# received: 200
ok 1
# testing : X-err_headers_out: made it
# expected: err_headers_out
# received: undef
not ok 2
# Failed test 2 in t/api/err_headers_out.t at line 30
# testing : X-headers_out: made it
# expected: headers_out
# received: undef
not ok 3
# Failed test 3 in t/api/err_headers_out.t at line 33
# HTTP/1.1 404 Not Found
# Connection: close
# Date: Mon, 23 Jun 2014 07:17:42 GMT
# Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
# Content-Length: 353
# Content-Type: text/html; charset=iso-8859-1
# Client-Date: Mon, 23 Jun 2014 07:17:42 GMT
# Client-Peer: 127.0.0.1:8529
# Client-Response-Num: 1
# Title: 404 Not Found
# X-Err_headers_out: err_headers_out
#
# <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
# <html><head>
# <title>404 Not Found</title>
# </head><body>
# <h1>Not Found</h1>
# <p>The requested URL /TestAPI__err_headers_out was not found on this server.</p>
# <hr>
# <address>Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0 Server at localhost Port 8529</address>
# </body></html>
# testing : not found
# expected: 404
# received: 404
ok 4
# testing : X-err_headers_out: made it
# expected: err_headers_out
# received: undef
not ok 5
# Failed test 5 in t/api/err_headers_out.t at line 55
ok 6
Failed 3/6 subtests

Test Summary Report
-------------------
t/api/err_headers_out.t (Wstat: 0 Tests: 6 Failed: 3)
   Failed tests: 2-3, 5
Files=1, Tests=6, 2 wallclock secs ( 0.05 usr 0.01 sys + 0.77 cusr 0.25 csys = 1.08 CPU)
Result: FAIL
Failed 1/1 test programs. 3/6 subtests failed.
[warning] server localhost:8529 shutdown
[warning] port 8529 still in use...
done
[ error] error running tests (please examine t/logs/error_log)

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:17:46 Mon $ perl -pi -e 's/==/>=/g' t/api/err_headers_out.t

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:18:24 Mon $ t/TEST -clean

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:18:34 Mon $ t/TEST -verbose t/api/err_headers_out.t
/ntfhome/local/sbin/httpd -d /ntfhome/local/src/perl/mod_perl-2.0.8/t -f /ntfhome/local/src/perl/mod_perl-2.0.8/t/conf/httpd.conf -D APACHE2 -D PERL_USEITHREADS
using Apache/2.2.27 (prefork MPM)

waiting 120 seconds for server to start: .[Mon Jun 23 00:18:40 2014] [info] 6 Apache2:: modules loaded
[Mon Jun 23 00:18:40 2014] [info] 0 APR:: modules loaded
[Mon Jun 23 00:18:40 2014] [info] base server + 29 vhosts ready to run tests
....
waiting 120 seconds for server to start: ok (waited 4 secs)
server localhost:8529 started
server localhost:8530 listening (filter_out_apache)
server localhost:8531 listening (perlsections)
server localhost:8532 listening (inherit)
server localhost:8533 listening (TestModperl::merge)
server localhost:8534 listening (TestModperl::perl_options)
server localhost:8535 listening (TestModperl::perl_options2)
server localhost:8536 listening (TestModperl::setupenv)
server localhost:8537 listening (TestModules::proxy)
server localhost:8538 listening (TestUser::rewrite)
server localhost:8539 listening (TestVhost::config)
server localhost:8540 listening (TestVhost::log)
server localhost:8541 listening (TestProtocol::echo_bbs)
server localhost:8542 listening (TestProtocol::echo_bbs2)
server localhost:8543 listening (TestProtocol::echo_block)
server localhost:8544 listening (TestProtocol::echo_filter)
server localhost:8545 listening (TestProtocol::echo_nonblock)
server localhost:8546 listening (TestProtocol::echo_timeout)
server localhost:8547 listening (TestProtocol::pseudo_http)
server localhost:8548 listening (TestPreConnection::note)
server localhost:8549 listening (TestHooks::hookrun)
server localhost:8550 listening (TestHooks::init)
server localhost:8551 listening (TestHooks::stacked_handlers2)
server localhost:8552 listening (TestHooks::startup)
server localhost:8553 listening (TestHooks::trans)
server localhost:8554 listening (TestFilter::both_str_con_add)
server localhost:8555 listening (TestFilter::in_bbs_inject_header)
server localhost:8556 listening (TestFilter::in_bbs_msg)
server localhost:8557 listening (TestFilter::in_str_msg)
server localhost:8558 listening (TestDirective::perlmodule)
server localhost:8559 listening (TestDirective::perlrequire)
server localhost:8560 listening (TestAPI::add_config)
server localhost:8561 listening (TestDirective::perlloadmodule3)
server localhost:8562 listening (TestDirective::perlloadmodule4)
server localhost:8563 listening (TestDirective::perlloadmodule5)
server localhost:8564 listening (TestDirective::perlloadmodule6)
server localhost:8565 listening (TestHooks::push_handlers_anon)
t/api/err_headers_out.t ..
1..6
# Running under perl version 5.020000 for linux
# Current time local: Mon Jun 23 00:18:45 2014
# Current time GMT: Mon Jun 23 07:18:45 2014
# Using Test.pm version 1.26
# Using Apache/Test.pm version 1.37
# HTTP/1.1 200 OK
# Connection: close
# Date: Mon, 23 Jun 2014 07:18:46 GMT
# Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
# Content-Length: 0
# Content-Type: text/plain
# Client-Date: Mon, 23 Jun 2014 07:18:46 GMT
# Client-Peer: 127.0.0.1:8529
# Client-Response-Num: 1
# X-Err_headers_out: err_headers_out
# X-Headers_out: headers_out
# testing : OK
# expected: 200
# received: 200
ok 1
# testing : X-err_headers_out: made it
# expected: err_headers_out
# received: err_headers_out
ok 2
# testing : X-headers_out: made it
# expected: headers_out
# received: headers_out
ok 3
# HTTP/1.1 404 Not Found
# Connection: close
# Date: Mon, 23 Jun 2014 07:18:46 GMT
# Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
# Content-Length: 353
# Content-Type: text/html; charset=iso-8859-1
# Client-Date: Mon, 23 Jun 2014 07:18:46 GMT
# Client-Peer: 127.0.0.1:8529
# Client-Response-Num: 1
# Title: 404 Not Found
# X-Err_headers_out: err_headers_out
#
# <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
# <html><head>
# <title>404 Not Found</title>
# </head><body>
# <h1>Not Found</h1>
# <p>The requested URL /TestAPI__err_headers_out was not found on this server.</p>
# <hr>
# <address>Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0 Server at localhost Port 8529</address>
# </body></html>
# testing : not found
# expected: 404
# received: 404
ok 4
# testing : X-err_headers_out: made it
# expected: err_headers_out
# received: err_headers_out
ok 5
ok 6
ok
All tests successful.
Files=1, Tests=6, 2 wallclock secs ( 0.04 usr 0.02 sys + 0.79 cusr 0.27 csys = 1.12 CPU)
Result: PASS
[warning] server localhost:8529 shutdown
[warning] port 8529 still in use...
done

sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
2014-06-23 00:18:50 Mon $ diff -u t/api/err_headers_out.t.orig t/api/err_headers_out.t
--- t/api/err_headers_out.t.orig 2014-06-22 23:27:54.668353000 -0700
+++ t/api/err_headers_out.t 2014-06-23 00:18:24.267013000 -0700
@@ -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";

Search Discussions

  • Mark Hedges at Jun 23, 2014 at 8:01 am
    This worked in trunk. Thanks. I guess I spun my wheels for a couple hours.

    Would it be a good idea to roll out 2.0.9 as a bugfix, and make httpd24 2.1.0? 2.0.10?

    Mark


    -----Original Message-----
    From: Mark Hedges
    Sent: Monday, June 23, 2014 12:22 AM
    To: modperl@perl.apache.org
    Cc: Mark Hedges
    Subject: bug in test script t/api/err_headers_out.t in released mod_perl 2.0.8 - patch supplied

    t/api/err_headers_out.t was recently changed to accommodate changes in HTTP::Headers 6.0, but the change did not make it forward-compatible for further versions of HTTP::Headers. The patch for the test script is below at the end. Thank you. HTH. -Mark

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:17:16 Mon $ t/TEST -clean

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:17:25 Mon $ t/TEST -verbose t/api/err_headers_out.t
    /ntfhome/local/sbin/httpd -d /ntfhome/local/src/perl/mod_perl-2.0.8/t -f /ntfhome/local/src/perl/mod_perl-2.0.8/t/conf/httpd.conf -D APACHE2 -D PERL_USEITHREADS
    using Apache/2.2.27 (prefork MPM)

    waiting 120 seconds for server to start: .[Mon Jun 23 00:17:36 2014] [info] 6 Apache2:: modules loaded
    [Mon Jun 23 00:17:36 2014] [info] 0 APR:: modules loaded
    [Mon Jun 23 00:17:36 2014] [info] base server + 29 vhosts ready to run tests
    ....
    waiting 120 seconds for server to start: ok (waited 4 secs)
    server localhost:8529 started
    server localhost:8530 listening (filter_out_apache)
    server localhost:8531 listening (perlsections)
    server localhost:8532 listening (inherit)
    server localhost:8533 listening (TestModperl::merge)
    server localhost:8534 listening (TestModperl::perl_options)
    server localhost:8535 listening (TestModperl::perl_options2)
    server localhost:8536 listening (TestModperl::setupenv)
    server localhost:8537 listening (TestModules::proxy)
    server localhost:8538 listening (TestUser::rewrite)
    server localhost:8539 listening (TestVhost::config)
    server localhost:8540 listening (TestVhost::log)
    server localhost:8541 listening (TestProtocol::echo_bbs)
    server localhost:8542 listening (TestProtocol::echo_bbs2)
    server localhost:8543 listening (TestProtocol::echo_block)
    server localhost:8544 listening (TestProtocol::echo_filter)
    server localhost:8545 listening (TestProtocol::echo_nonblock)
    server localhost:8546 listening (TestProtocol::echo_timeout)
    server localhost:8547 listening (TestProtocol::pseudo_http)
    server localhost:8548 listening (TestPreConnection::note)
    server localhost:8549 listening (TestHooks::hookrun)
    server localhost:8550 listening (TestHooks::init)
    server localhost:8551 listening (TestHooks::stacked_handlers2)
    server localhost:8552 listening (TestHooks::startup)
    server localhost:8553 listening (TestHooks::trans)
    server localhost:8554 listening (TestFilter::both_str_con_add)
    server localhost:8555 listening (TestFilter::in_bbs_inject_header)
    server localhost:8556 listening (TestFilter::in_bbs_msg)
    server localhost:8557 listening (TestFilter::in_str_msg)
    server localhost:8558 listening (TestDirective::perlmodule)
    server localhost:8559 listening (TestDirective::perlrequire)
    server localhost:8560 listening (TestAPI::add_config)
    server localhost:8561 listening (TestDirective::perlloadmodule3)
    server localhost:8562 listening (TestDirective::perlloadmodule4)
    server localhost:8563 listening (TestDirective::perlloadmodule5)
    server localhost:8564 listening (TestDirective::perlloadmodule6)
    server localhost:8565 listening (TestHooks::push_handlers_anon)
    t/api/err_headers_out.t ..
    1..6
    # Running under perl version 5.020000 for linux
    # Current time local: Mon Jun 23 00:17:41 2014
    # Current time GMT: Mon Jun 23 07:17:41 2014
    # Using Test.pm version 1.26
    # Using Apache/Test.pm version 1.37
    # HTTP/1.1 200 OK
    # Connection: close
    # Date: Mon, 23 Jun 2014 07:17:42 GMT
    # Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
    # Content-Length: 0
    # Content-Type: text/plain
    # Client-Date: Mon, 23 Jun 2014 07:17:42 GMT
    # Client-Peer: 127.0.0.1:8529
    # Client-Response-Num: 1
    # X-Err_headers_out: err_headers_out
    # X-Headers_out: headers_out
    # testing : OK
    # expected: 200
    # received: 200
    ok 1
    # testing : X-err_headers_out: made it
    # expected: err_headers_out
    # received: undef
    not ok 2
    # Failed test 2 in t/api/err_headers_out.t at line 30
    # testing : X-headers_out: made it
    # expected: headers_out
    # received: undef
    not ok 3
    # Failed test 3 in t/api/err_headers_out.t at line 33
    # HTTP/1.1 404 Not Found
    # Connection: close
    # Date: Mon, 23 Jun 2014 07:17:42 GMT
    # Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
    # Content-Length: 353
    # Content-Type: text/html; charset=iso-8859-1
    # Client-Date: Mon, 23 Jun 2014 07:17:42 GMT
    # Client-Peer: 127.0.0.1:8529
    # Client-Response-Num: 1
    # Title: 404 Not Found
    # X-Err_headers_out: err_headers_out
    #
    # <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
    # <html><head>
    # <title>404 Not Found</title>
    # </head><body>
    # <h1>Not Found</h1>
    # <p>The requested URL /TestAPI__err_headers_out was not found on this server.</p>
    # <hr>
    # <address>Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0 Server at localhost Port 8529</address>
    # </body></html>
    # testing : not found
    # expected: 404
    # received: 404
    ok 4
    # testing : X-err_headers_out: made it
    # expected: err_headers_out
    # received: undef
    not ok 5
    # Failed test 5 in t/api/err_headers_out.t at line 55
    ok 6
    Failed 3/6 subtests

    Test Summary Report
    -------------------
    t/api/err_headers_out.t (Wstat: 0 Tests: 6 Failed: 3)
       Failed tests: 2-3, 5
    Files=1, Tests=6, 2 wallclock secs ( 0.05 usr 0.01 sys + 0.77 cusr 0.25 csys = 1.08 CPU)
    Result: FAIL
    Failed 1/1 test programs. 3/6 subtests failed.
    [warning] server localhost:8529 shutdown
    [warning] port 8529 still in use...
    done
    [ error] error running tests (please examine t/logs/error_log)

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:17:46 Mon $ perl -pi -e 's/==/>=/g' t/api/err_headers_out.t

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:18:24 Mon $ t/TEST -clean

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:18:34 Mon $ t/TEST -verbose t/api/err_headers_out.t
    /ntfhome/local/sbin/httpd -d /ntfhome/local/src/perl/mod_perl-2.0.8/t -f /ntfhome/local/src/perl/mod_perl-2.0.8/t/conf/httpd.conf -D APACHE2 -D PERL_USEITHREADS
    using Apache/2.2.27 (prefork MPM)

    waiting 120 seconds for server to start: .[Mon Jun 23 00:18:40 2014] [info] 6 Apache2:: modules loaded
    [Mon Jun 23 00:18:40 2014] [info] 0 APR:: modules loaded
    [Mon Jun 23 00:18:40 2014] [info] base server + 29 vhosts ready to run tests
    ....
    waiting 120 seconds for server to start: ok (waited 4 secs)
    server localhost:8529 started
    server localhost:8530 listening (filter_out_apache)
    server localhost:8531 listening (perlsections)
    server localhost:8532 listening (inherit)
    server localhost:8533 listening (TestModperl::merge)
    server localhost:8534 listening (TestModperl::perl_options)
    server localhost:8535 listening (TestModperl::perl_options2)
    server localhost:8536 listening (TestModperl::setupenv)
    server localhost:8537 listening (TestModules::proxy)
    server localhost:8538 listening (TestUser::rewrite)
    server localhost:8539 listening (TestVhost::config)
    server localhost:8540 listening (TestVhost::log)
    server localhost:8541 listening (TestProtocol::echo_bbs)
    server localhost:8542 listening (TestProtocol::echo_bbs2)
    server localhost:8543 listening (TestProtocol::echo_block)
    server localhost:8544 listening (TestProtocol::echo_filter)
    server localhost:8545 listening (TestProtocol::echo_nonblock)
    server localhost:8546 listening (TestProtocol::echo_timeout)
    server localhost:8547 listening (TestProtocol::pseudo_http)
    server localhost:8548 listening (TestPreConnection::note)
    server localhost:8549 listening (TestHooks::hookrun)
    server localhost:8550 listening (TestHooks::init)
    server localhost:8551 listening (TestHooks::stacked_handlers2)
    server localhost:8552 listening (TestHooks::startup)
    server localhost:8553 listening (TestHooks::trans)
    server localhost:8554 listening (TestFilter::both_str_con_add)
    server localhost:8555 listening (TestFilter::in_bbs_inject_header)
    server localhost:8556 listening (TestFilter::in_bbs_msg)
    server localhost:8557 listening (TestFilter::in_str_msg)
    server localhost:8558 listening (TestDirective::perlmodule)
    server localhost:8559 listening (TestDirective::perlrequire)
    server localhost:8560 listening (TestAPI::add_config)
    server localhost:8561 listening (TestDirective::perlloadmodule3)
    server localhost:8562 listening (TestDirective::perlloadmodule4)
    server localhost:8563 listening (TestDirective::perlloadmodule5)
    server localhost:8564 listening (TestDirective::perlloadmodule6)
    server localhost:8565 listening (TestHooks::push_handlers_anon)
    t/api/err_headers_out.t ..
    1..6
    # Running under perl version 5.020000 for linux
    # Current time local: Mon Jun 23 00:18:45 2014
    # Current time GMT: Mon Jun 23 07:18:45 2014
    # Using Test.pm version 1.26
    # Using Apache/Test.pm version 1.37
    # HTTP/1.1 200 OK
    # Connection: close
    # Date: Mon, 23 Jun 2014 07:18:46 GMT
    # Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
    # Content-Length: 0
    # Content-Type: text/plain
    # Client-Date: Mon, 23 Jun 2014 07:18:46 GMT
    # Client-Peer: 127.0.0.1:8529
    # Client-Response-Num: 1
    # X-Err_headers_out: err_headers_out
    # X-Headers_out: headers_out
    # testing : OK
    # expected: 200
    # received: 200
    ok 1
    # testing : X-err_headers_out: made it
    # expected: err_headers_out
    # received: err_headers_out
    ok 2
    # testing : X-headers_out: made it
    # expected: headers_out
    # received: headers_out
    ok 3
    # HTTP/1.1 404 Not Found
    # Connection: close
    # Date: Mon, 23 Jun 2014 07:18:46 GMT
    # Server: Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0
    # Content-Length: 353
    # Content-Type: text/html; charset=iso-8859-1
    # Client-Date: Mon, 23 Jun 2014 07:18:46 GMT
    # Client-Peer: 127.0.0.1:8529
    # Client-Response-Num: 1
    # Title: 404 Not Found
    # X-Err_headers_out: err_headers_out
    #
    # <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
    # <html><head>
    # <title>404 Not Found</title>
    # </head><body>
    # <h1>Not Found</h1>
    # <p>The requested URL /TestAPI__err_headers_out was not found on this server.</p>
    # <hr>
    # <address>Apache/2.2.27 (Unix) world domination series/2.0 mod_perl/2.0.8 Perl/v5.20.0 Server at localhost Port 8529</address>
    # </body></html>
    # testing : not found
    # expected: 404
    # received: 404
    ok 4
    # testing : X-err_headers_out: made it
    # expected: err_headers_out
    # received: err_headers_out
    ok 5
    ok 6
    ok
    All tests successful.
    Files=1, Tests=6, 2 wallclock secs ( 0.04 usr 0.02 sys + 0.79 cusr 0.27 csys = 1.12 CPU)
    Result: PASS
    [warning] server localhost:8529 shutdown
    [warning] port 8529 still in use...
    done

    sre@tst1.ntf.cftdev1 /ntfhome/local/src/perl/mod_perl-2.0.8
    2014-06-23 00:18:50 Mon $ diff -u t/api/err_headers_out.t.orig t/api/err_headers_out.t
    --- t/api/err_headers_out.t.orig 2014-06-22 23:27:54.668353000 -0700
    +++ t/api/err_headers_out.t 2014-06-23 00:18:24.267013000 -0700
    @@ -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";
  • Steve Hay at Jun 23, 2014 at 12:06 pm

    On 23 June 2014 09:00, Mark Hedges wrote:
    This worked in trunk. Thanks. I guess I spun my wheels for a couple hours.

    Would it be a good idea to roll out 2.0.9 as a bugfix, and make httpd24 2.1.0? 2.0.10?
    I think many people would be annoyed if 2.0.9 appeared and still
    didn't contain 2.4 support. We're now sufficiently close that I don't
    think that would be a good move unless a real showstopper was found in
    2.0.8 that couldn't wait, which is unlikely by now.

    Sorry if you've wasted a few hours there. It is always a good idea to
    check the latest dev version of anything that you consider filing a
    bug report about, though (not just mod_perl).

    Thanks for your interest in finding/fixing bugs! Keep up the good work
    (on trunk... ;-)

Related Discussions

Discussion Navigation
viewthread | post
Discussion Overview
groupmodperl @
categoriesmodperl, perl
postedJun 23, '14 at 7:22a
activeJun 23, '14 at 12:06p
posts3
users2
websiteperl.apache.org

2 users in discussion

Mark Hedges: 2 posts Steve Hay: 1 post

People

Translate

site design / logo © 2018 Grokbase