diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-08-06 23:56:46 +0200 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-29 11:44:00 +0000 |
| commit | 4d76a3443f3312704ec3416fd425698e92a208cd (patch) | |
| tree | 769fa92e2e9f3a46a171807a82b7d5fd7c623c0a /perl.c | |
| parent | 85cf7f2e6c0eee352cdc28bfa7e316574993c2ba (diff) | |
| download | perl-4d76a3443f3312704ec3416fd425698e92a208cd.tar.gz | |
posixify getppid on linux-multithread
Message-Id: <20020806215646.3f6852bb.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@17798
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -3651,6 +3651,9 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid()); SvREADONLY_on(GvSV(tmpgv)); } +#ifdef THREADS_HAVE_PIDS + PL_ppid = (IV)getppid(); +#endif /* touch @F array to prevent spurious warnings 20020415 MJD */ if (PL_minus_a) { |