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 /util.c | |
| 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 'util.c')
| -rw-r--r-- | util.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -2402,9 +2402,9 @@ Perl_my_popen(pTHX_ char *cmd, char *mode) PerlLIO_close(p[This]); p[This] = p[that]; } - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = *av_fetch(PL_fdpid,p[This],TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); (void)SvUPGRADE(sv,SVt_IV); SvIVX(sv) = pid; PL_forkprocess = pid; @@ -2622,9 +2622,9 @@ Perl_my_pclose(pTHX_ PerlIO *ptr) int saved_win32_errno; #endif - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); svp = av_fetch(PL_fdpid,PerlIO_fileno(ptr),TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); pid = SvIVX(*svp); SvREFCNT_dec(*svp); *svp = &PL_sv_undef; |