stas 2003/10/18 12:27:24
Modified: t/response/TestPerl api.pm
Log:
verify that pid != ppid under threads
Revision Changes Path
1.2 +6 -2 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.1
retrieving revision 1.2
diff -u -u -r1.1 -r1.2
--- api.pm 16 Oct 2003 18:23:30 -0000 1.1
+++ api.pm 18 Oct 2003 19:27:24 -0000 1.2
@@ -14,7 +14,7 @@
sub handler {
my $r = shift;
- plan $r, tests => 1;
+ plan $r, tests => 2;
{
# 5.8.1 w/ ithreads has a bug where it caches ppid in PL_ppid,
@@ -23,8 +23,12 @@
# returning 1. A local workaround in the mod_perl source at
# the child_init phase fixes the problem.
my $ppid = getppid();
- t_debug "ppid $ppid (pid $$)";
+ t_debug "ppid $ppid";
ok $ppid > 1;
+
+ # verify that $pid != $ppid
+ t_debug "pid $$";
+ ok $ppid != $$;
}
Apache::OK;
