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

[dougm]

dougm       01/12/17 16:23:03

  Modified:    t/response/TestApache subprocess.pm
  Log:
  skip subprocess test unless Apache::SubProcess is available
  
  Revision  Changes    Path
  1.3       +2 -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.2
  retrieving revision 1.3
  diff -u -r1.2 -r1.3
  --- subprocess.pm     2001/12/18 00:21:02     1.2
  +++ subprocess.pm     2001/12/18 00:23:03     1.3
  @@ -9,7 +9,7 @@
   use Apache::TestUtil;
   use File::Spec::Functions qw(catfile catdir);
   
  -use Apache::SubProcess ();
  +eval { require Apache::SubProcess };
   
   my %scripts = (
        argv   => 'print STDOUT "@ARGV";',
  @@ -38,7 +38,7 @@
       my $vars = $cfg->{vars};
   
       # XXX: these tests randomly fail under 5.6.1
  -    plan $r, todo => [1..4], tests => 4;
  +    plan $r, todo => [1..4], tests => 4, have_module 'Apache::SubProcess';
   
       my $target_dir = catfile $vars->{documentroot}, "util";