dougm 01/12/17 16:23:03
Modified:t/response/TestApache subprocess.pm
Log:
skip subprocess test unless Apache::SubProcess is available
Revision ChangesPath
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;