diff options
Diffstat (limited to 'vmesa/vmesa.c')
| -rw-r--r-- | vmesa/vmesa.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/vmesa/vmesa.c b/vmesa/vmesa.c index b39638086f..0e4ad86682 100644 --- a/vmesa/vmesa.c +++ b/vmesa/vmesa.c @@ -182,13 +182,13 @@ do_aspawn(SV* really, SV **mark, SV **sp) /* be used by my_pclose */ /*---------------------------------------------*/ close(fd); - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); p_sv = av_fetch(PL_fdpid,fd,TRUE); fd = (int) SvIVX(*p_sv); SvREFCNT_dec(*p_sv); *p_sv = &PL_sv_undef; sv = *av_fetch(PL_fdpid,fd,TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); (void) SvUPGRADE(sv, SVt_IV); SvIVX(sv) = pid; status = 0; @@ -414,9 +414,9 @@ my_popen(char *cmd, char *mode) pid = spawn_cmd(cmd, Perl_stdin_fd, Perl_stdout_fd); if (pid >= 0) { - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = *av_fetch(PL_fdpid,pFd[this],TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); (void) SvUPGRADE(sv, SVt_IV); SvIVX(sv) = pid; fd = PerlIO_fdopen(pFd[this], mode); @@ -427,9 +427,9 @@ my_popen(char *cmd, char *mode) } else { - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = *av_fetch(PL_fdpid,pFd[that],TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); (void) SvUPGRADE(sv, SVt_IV); SvIVX(sv) = pFd[this]; fd = PerlIO_fdopen(pFd[this], mode); @@ -466,9 +466,9 @@ my_pclose(FILE *fp) SV **sv; FILE *other; - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = av_fetch(PL_fdpid,PerlIO_fileno(fp),TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); pid = (int) SvIVX(*sv); SvREFCNT_dec(*sv); *sv = &PL_sv_undef; |