view release on metacpan or  search on metacpan

OpenDKIM.xs  view on Meta::CPAN

	CODE:
		RETVAL = dkim_getsignature(dkim);
	OUTPUT:
		RETVAL

# Returns 3 values: $rc, $nsigs, @sigs

void
_dkim_getsiglist(dkim)
		DKIM *dkim
	PPCODE:
		DKIM_SIGINFO **s = NULL;
		int nsigs;
		DKIM_STAT rc = dkim_getsiglist(dkim, &s, &nsigs);

		/*
		 * Push the sigs on to the stack so that they appear to Perl as a @list
		 */
		XPUSHs(sv_2mortal(newSViv(rc)));
		if(rc == DKIM_STAT_OK) {
			int i;