… | |
… | |
575 | |
575 | |
576 | SV * |
576 | SV * |
577 | _process_ipaddress (BUFOBJ self, ...) |
577 | _process_ipaddress (BUFOBJ self, ...) |
578 | CODE: |
578 | CODE: |
579 | { |
579 | { |
580 | U32 length = process_length (); |
580 | U32 length = process_length (); |
581 | if (length != 4) |
581 | if (length != 4) |
582 | { |
582 | { |
583 | error ("IP ADDRESS length not four"); |
583 | error ("IP ADDRESS length not four"); |
584 | XSRETURN_UNDEF; |
584 | XSRETURN_UNDEF; |
585 | } |
585 | } |
… | |
… | |
592 | |
592 | |
593 | SV * |
593 | SV * |
594 | process (BUFOBJ self, SV *expected = &PL_sv_undef, SV *found = 0) |
594 | process (BUFOBJ self, SV *expected = &PL_sv_undef, SV *found = 0) |
595 | CODE: |
595 | CODE: |
596 | { |
596 | { |
597 | int type; |
597 | int type; |
598 | |
598 | |
599 | RETVAL = process_sv (&type); |
599 | RETVAL = process_sv (&type); |
600 | |
600 | |
601 | if (found) |
601 | if (found) |
602 | sv_setiv (found, type); |
602 | sv_setiv (found, type); |