stas 2003/08/20 17:07:35
Modified: t/response/TestModperl request_rec_tie_api.pm Log: when perlio is used STDOUT is not tied, so skip this test if that's the case Revision Changes Path 1.4 +8 -1 modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm Index: request_rec_tie_api.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestModperl/request_rec_tie_api.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- request_rec_tie_api.pm 31 Mar 2003 00:53:28 -0000 1.3 +++ request_rec_tie_api.pm 21 Aug 2003 00:07:35 -0000 1.4 @@ -1,5 +1,8 @@ package TestModperl::request_rec_tie_api; +# this test is relevant only when the tied STDIN/STDOUT are used (when +# $Config{useperlio} is not defined.) + use strict; use warnings FATAL => 'all'; @@ -13,13 +16,17 @@ use Apache::Const -compile => 'OK'; +use Config; + sub handler { my $r = shift; require Apache::Build; my @todo; push @todo, 1 if Apache::Build::AIX(); - plan $r, tests => 3, todo => [EMAIL PROTECTED]; + plan $r, tests => 3, todo => [EMAIL PROTECTED], + have { "perl $]: PerlIO is used instead of TIEd IO" + => !($] >= 5.008 && $Config{useperlio}) }; # XXX: on AIX 4.3.3 we get: # STDIN STDOUT STDERR