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

[stas]

stas        02/04/09 00:26:24

  Modified:    t/response/TestApache subprocess.pm
  Log:
  skip the subprocess test if perl < 5.7.3
  
  Revision  Changes    Path
  1.6       +3 -3      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.5
  retrieving revision 1.6
  diff -u -r1.5 -r1.6
  --- subprocess.pm     6 Apr 2002 17:48:12 -0000       1.5
  +++ subprocess.pm     9 Apr 2002 07:26:24 -0000       1.6
  @@ -38,9 +38,9 @@
       my $vars = $cfg->{vars};
   
       # XXX: these tests randomly fail under 5.6.1
  -    my @todo = $] < 5.007003 ? (todo => [1..4]) : ();
  -
  -    plan $r, @todo, tests => 4, have_module 'Apache::SubProcess';
  +    plan $r, tests => 4,
  +        have {"perl < 5.7.3" => sub { $] >= 5.007003 } },
  +             'Apache::SubProcess';
   
       my $target_dir = catfile $vars->{documentroot}, "util";