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;
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;
SV *
Perl_lock(pTHX_ SV *osv)
{
-#ifdef USE_THREADS
MAGIC *mg;
SV *sv = osv;
while (MgOWNER(mg))
COND_WAIT(MgOWNERCONDP(mg), MgMUTEXP(mg));
MgOWNER(mg) = thr;
- DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%"UVxf": pp_lock lock 0x%"UVxf"\n",
+ DEBUG_S(PerlIO_printf(Perl_debug_log, "0x%"UVxf": Perl_lock lock 0x%"UVxf"\n",
PTR2UV(thr), PTR2UV(sv));)
MUTEX_UNLOCK(MgMUTEXP(mg));
SAVEDESTRUCTOR_X(Perl_unlock_condpair, sv);
}
-#endif
SvUNLOCK(sv);
return sv;
}