view release on metacpan or  search on metacpan

lib/Linux/Socket/Accept4.xs  view on Meta::CPAN

void
accept4(...)
PROTOTYPE: **$
PREINIT:
    GV *ngv;
    IO *gstio;
    IO *nstio;
    char namebuf[MAXPATHLEN];
    Sock_size_t len = sizeof namebuf;
    int fd;
PPCODE:
{
        if (items !=3) {
            croak("Usage: accept4(ngv, ggv, flags)");
        }
        switch (SvTYPE(ST(0))) {
            case SVt_PVIO:
            case SVt_PVGV:
            case SVt_PVLV:
                nstio = sv_2io(ST(0));
                break;