You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2002/05/12 21:30:03 UTC
cvs commit: modperl-2.0/t/response/TestApache subprocess.pm
dougm 02/05/12 12:30:03
Modified: t/response/TestApache subprocess.pm
Log:
move eval of Apache::SubProcess after plan/have so test is properly skipped on win32/bleedperl
Revision Changes Path
1.8 +2 -1 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.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- subprocess.pm 11 Apr 2002 11:08:44 -0000 1.7
+++ subprocess.pm 12 May 2002 19:30:03 -0000 1.8
@@ -8,7 +8,6 @@
use File::Spec::Functions qw(catfile catdir);
-eval { require Apache::SubProcess };
use Apache::Const -compile => 'OK';
my %scripts = (
@@ -41,6 +40,8 @@
plan $r, tests => 4,
have {"perl < 5.7.3" => sub { $] >= 5.007003 } },
'Apache::SubProcess';
+
+ eval { require Apache::SubProcess };
my $target_dir = catfile $vars->{documentroot}, "util";