stas 2003/10/21 15:46:44
Modified: t/response/TestPerl api.pm
Log:
getppid is not implemented on win32
Submitted by: Steve Hay <[EMAIL PROTECTED]>
Revision Changes Path
1.3 +5 -1 modperl-2.0/t/response/TestPerl/api.pm
Index: api.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/response/TestPerl/api.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -u -r1.2 -r1.3
--- api.pm 18 Oct 2003 19:27:24 -0000 1.2
+++ api.pm 21 Oct 2003 22:46:44 -0000 1.3
@@ -9,12 +9,16 @@
use Apache::TestUtil;
use Apache::TestTrace;
+use Apache::Build;
+
use Apache::Const -compile => 'OK';
sub handler {
my $r = shift;
- plan $r, tests => 2;
+ plan $r, tests => 2,
+ have { "getppid() is not implemented on Win32"
+ => !Apache::Build::WIN32() };
{
# 5.8.1 w/ ithreads has a bug where it caches ppid in PL_ppid,
