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 /doio.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 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -476,13 +476,13 @@ Perl_do_open9(pTHX_ GV *gv, register char *name, I32 len, int as_raw, SV *sv; PerlLIO_dup2(PerlIO_fileno(fp), fd); - FDPID_LOCK; + MUTEX_LOCK(&PL_fdpid_mutex); sv = *av_fetch(PL_fdpid,PerlIO_fileno(fp),TRUE); (void)SvUPGRADE(sv, SVt_IV); pid = SvIVX(sv); SvIVX(sv) = 0; sv = *av_fetch(PL_fdpid,fd,TRUE); - FDPID_UNLOCK; + MUTEX_UNLOCK(&PL_fdpid_mutex); (void)SvUPGRADE(sv, SVt_IV); SvIVX(sv) = pid; if (!was_fdopen) |