diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 17:42:04 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-11 17:42:04 +0000 |
| commit | 9d8fd706bc0a9872712899ee2dadb932fa21142a (patch) | |
| tree | 2294f09adaee42fb5263353788bf81563c38eb0d /win32 | |
| parent | 153141c23cb8c100f3a68211170e1ecf65713557 (diff) | |
| download | perl-9d8fd706bc0a9872712899ee2dadb932fa21142a.tar.gz | |
integrate cfgperl change#6217 into mainline
p4raw-link: @6217 on //depot/cfgperl: cc9b67681954df413fe79f7c379e7b91a3121259
p4raw-id: //depot/perl@6347
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win32/win32.c b/win32/win32.c index c94d4c5126..6e336169bc 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -2393,9 +2393,9 @@ win32_popen(const char *command, const char *mode) /* close saved handle */ win32_close(oldfd); - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv_setiv(*av_fetch(w32_fdpid, p[parent], TRUE), childpid); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); /* set process id so that it can be returned by perl's open() */ PL_forkprocess = childpid; @@ -2431,9 +2431,9 @@ win32_pclose(FILE *pf) int childpid, status; SV *sv; - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = *av_fetch(w32_fdpid, win32_fileno(pf), TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); if (SvIOK(sv)) childpid = SvIVX(sv); else |