perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestAPR perlio.pm
Date Wed, 16 Apr 2003 05:25:59 GMT
stas        2003/04/15 22:25:59

  Modified:    t/response/TestAPR perlio.pm
  Log:
  yet another fix to make the skip rule work properly in all cases
  
  Revision  Changes    Path
  1.19      +8 -4      modperl-2.0/t/response/TestAPR/perlio.pm
  
  Index: perlio.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestAPR/perlio.pm,v
  retrieving revision 1.18
  retrieving revision 1.19
  diff -u -r1.18 -r1.19
  --- perlio.pm	15 Apr 2003 01:17:48 -0000	1.18
  +++ perlio.pm	16 Apr 2003 05:25:59 -0000	1.19
  @@ -23,11 +23,15 @@
   
       $tests += $lfs_tests unless LARGE_FILES_CONFLICT;
   
  -    eval { require APR::PerlIO };
  +    # 1) APR::PerlIO is not available on all platforms
  +    # 2) on those platforms where available,
  +    #    PerlIO-enabled perl is needed to run this test
  +    my $run = eval { require APR::PerlIO } && 
  +        APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED()
  +            ? 1
  +            : have  { "This Perl build doesn't support PerlIO layers" => 0 };
   
  -    plan $r, tests => $tests, have {
  -        "This Perl build doesn't support PerlIO layers" =>
  -            APR::PerlIO::PERLIO_LAYERS_ARE_ENABLED() };
  +    plan $r, tests => $tests, $run;
   
       my $vars = Apache::Test::config()->{vars};
       my $dir  = catfile $vars->{documentroot}, "perlio";
  
  
  

Mime
View raw message