Author: stas Date: Thu Dec 9 18:54:30 2004 New Revision: 111459 URL: http://svn.apache.org/viewcvs?view=rev&rev=111459 Log: Apache::TestHandler: need to load Apache::RequestIO for mp2 for puts() to work
Modified: httpd/test/trunk/perl-framework/Apache-Test/Changes httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm Modified: httpd/test/trunk/perl-framework/Apache-Test/Changes Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/Changes?view=diff&rev=111459&p1=httpd/test/trunk/perl-framework/Apache-Test/Changes&r1=111458&p2=httpd/test/trunk/perl-framework/Apache-Test/Changes&r2=111459 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/Changes (original) +++ httpd/test/trunk/perl-framework/Apache-Test/Changes Thu Dec 9 18:54:30 2004 @@ -8,6 +8,9 @@ =item 1.17-dev +Apache::TestHandler: need to load Apache::RequestIO for mp2 for puts() +to work [Stas] + new Apache::TestConfig wrapper untaint_path() [Randy Kobes] fix the config thaw() functionality (when top_dir wasn't in @INC the Modified: httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm Url: http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm?view=diff&rev=111459&p1=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm&r1=111458&p2=httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm&r2=111459 ============================================================================== --- httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm (original) +++ httpd/test/trunk/perl-framework/Apache-Test/lib/Apache/TestHandler.pm Thu Dec 9 18:54:30 2004 @@ -25,6 +25,10 @@ #some utility handlers for testing hooks other than response #see modperl-2.0/t/hooks/TestHooks/authen.pm +if ($ENV{MOD_PERL} && require mod_perl && $mod_perl::VERSION > 1.99) { + require Apache::RequestIO; # puts +} + #compat with 1.xx my $send_http_header = Apache->can('send_http_header') || sub {}; my $print = Apache->can('print') || Apache::RequestRec->can('puts');
