view release on metacpan or  search on metacpan

XS.xs  view on Meta::CPAN

	OUTPUT:
		RETVAL

SV *
newhash(const char *password)
	INIT:
		int rv;
		char buf [_PASSWORD_LEN];

	PPCODE:
		rv = crypt_newhash(password, "bcrypt,a", buf, sizeof(buf));
		if (rv == 0)
			XPUSHs(sv_2mortal(newSVpv(buf, 0)));
		else
			XPUSHs(sv_newmortal());