cvs commit: modperl-2.0/t/response/TestApache subprocess.pm

[stas]

stas        2003/02/02 16:19:58

  Modified:    t/response/TestApache subprocess.pm
  Log:
  fix for 5.6.x with perlio enabled. our PerlIO works only with 5.7+, so
  check for the perl version in addition to $Config{useperlio}
  
  Revision  Changes    Path
  1.11      +5 -2      modperl-2.0/t/response/TestApache/subprocess.pm
  
  Index: subprocess.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/response/TestApache/subprocess.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -r1.10 -r1.11
  --- subprocess.pm     21 Aug 2002 15:43:39 -0000      1.10
  +++ subprocess.pm     3 Feb 2003 00:19:58 -0000       1.11
  @@ -12,7 +12,7 @@
   use Apache::Const -compile => 'OK';
   
   use Config;
  -use constant PERLIO_IS_ENABLED => $Config{useperlio};
  +use constant PERLIO_5_8_IS_ENABLED => $Config{useperlio} && $] > 5.7;
   
   my %scripts = (
        argv   => 'print STDOUT "@ARGV";',
  @@ -146,7 +146,10 @@
       # so we use the following wrapper: if we are under perlio we just
       # go ahead and read the data, if we are under non-perlio we first
       # select for a few secs. (XXX: is 10 secs enough?)
  -    if (PERLIO_IS_ENABLED || $sel->can_read(10)) {
  +    #
  +    # btw: we use perlIO only for perl 5.7+
  +    #
  +    if (PERLIO_5_8_IS_ENABLED || $sel->can_read(10)) {
           @data = wantarray ? (<$fh>) : <$fh>;
       }