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
