Re: Perl's getppid cache

[Alexey Tourbin]

On Sat, Jun 04, 2005 at 04:21:07AM +0400, Alexey Tourbin wrote:
> So they simply use syscall(64) instead of getppid()...

Here is a sketch for a test to be added.  Because the test itself should
not exit, fork() is used twice.  Of course syscall(64) is not portalbe
and is used now only to prove the problem.

$ perl5.8.7 getppid.t
# before: ppid=30651, real_ppid=30651
# after: ppid=30651, real_ppid=1
not ok
$ perl5.9.3 getppid.t
# before: ppid=30654, real_ppid=30654
# after: ppid=1, real_ppid=1
ok
$

Both perl5.8.7 and [EMAIL PROTECTED] are with ithreads.

getppid.t
Description: Troff document

pgpJwxO886cgI.pgp
Description: PGP signature