diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 17:36:42 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 17:36:42 +0000 |
| commit | 3d35f11b2518ea9ea787f5db97c6c3e7cff04dbf (patch) | |
| tree | 734aa6592529265daf086a04e80910a6ed0c7650 /win32 | |
| parent | f3b469aff5df6578898d16737a9550f4e9b8ee54 (diff) | |
| download | perl-3d35f11b2518ea9ea787f5db97c6c3e7cff04dbf.tar.gz | |
integrate cfgperl changes#6207..6210 into mainline
p4raw-link: @6210 on //depot/cfgperl: b8b4c9f3cf6ef09c878a80ff97526a69902a44ca
p4raw-link: @6207 on //depot/cfgperl: b37a7757477319a5fcdd5131db15046064f631c4
p4raw-id: //depot/perl@6345
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index 1ba2e51758..c94d4c5126 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -2393,7 +2393,9 @@ win32_popen(const char *command, const char *mode) /* close saved handle */ win32_close(oldfd); + FDPID_LOCK; sv_setiv(*av_fetch(w32_fdpid, p[parent], TRUE), childpid); + FDPID_UNLOCK; /* set process id so that it can be returned by perl's open() */ PL_forkprocess = childpid; @@ -2429,7 +2431,9 @@ win32_pclose(FILE *pf) int childpid, status; SV *sv; + FDPID_LOCK; sv = *av_fetch(w32_fdpid, win32_fileno(pf), TRUE); + FDPID_UNLOCK; if (SvIOK(sv)) childpid = SvIVX(sv); else |