view release on metacpan or  search on metacpan

Keyring.xs  view on Meta::CPAN

	char *	desc
	char *	data
	int	datalen
	int	keyring

void
_key_read (key_id)
	int	key_id
        PREINIT:
        I32* temp;
        PPCODE:
        temp = PL_markstack_ptr++;
        _key_read(key_id);
        if (PL_markstack_ptr != temp) {
          /* truly void, because dXSARGS not invoked */
          PL_markstack_ptr = temp;
          XSRETURN_EMPTY; /* return empty stack */
        }
        /* must have used dXSARGS; list context implied */
        return; /* assume stack size is correct */