view release on metacpan or  search on metacpan

IPv4.xs  view on Meta::CPAN

        Perl_croak(aTHX_ "bad IPv4 specification %s", SvPV_nolen(ipv4));
OUTPUT:
    RETVAL

void
pack_netipv4(netipv4=NULL)
    SV *netipv4
PREINIT:
    UV ip;
    const char *p;
PPCODE:
    if (!netipv4)
        netipv4 = DEFSV;
    if (parse_ip(aTHX_ SvPV_nolen(netipv4), '/', &ip, &p)) {
        int len;
        if (parse_len(aTHX_ p, &len)) {
            UV m = netmask[len];
            if ((ip & ~m) == 0) {
                XPUSHs(sv_2mortal(newSVuv(ip)));
                XPUSHs(sv_2mortal(newSVuv(m)));
                XSRETURN(2);