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
  
  
  

Reply via email to