2 ms·
Perl seems to do this (PerlIOUnix_close() in perlio.c)[1]: while (PerlLIO_close(fd) != 0) { if (errno != EINTR) { code = -1;
by __david__ 15y ago
Perl seems to do this (PerlIOUnix_close() in perlio.c)[1]:
while (PerlLIO_close(fd) != 0) {
if (errno != EINTR) {
code = -1;
break;
}
/* EINTR */
if (PL_sig_pending && S_perlio_async_run(aTHX_ f))
return -1;
}
[1] https://github.com/mirrors/perl/blob/be48bbe8d671b6841c3ec7cb734b98071afe3cd9/perlio.c#L2859 https://github.com/mirrors/perl/blob/be48bbe8d671b6841c3ec7c...