Fix in crypt for FreeBSD.
This commit is contained in:
parent
2da7ff5f72
commit
d97da4df60
|
@ -758,6 +758,11 @@ s48_value fcntl_write(s48_value fd, s48_value command, s48_value value)
|
||||||
*/
|
*/
|
||||||
s48_value scm_crypt(s48_value key, s48_value salt)
|
s48_value scm_crypt(s48_value key, s48_value salt)
|
||||||
{
|
{
|
||||||
return s48_enter_string (crypt ( s48_extract_string (key),
|
char * ret = crypt (s48_extract_string (key),
|
||||||
s48_extract_string(salt)));
|
s48_extract_string(salt));
|
||||||
|
|
||||||
|
// FreeBSD does this on error:
|
||||||
|
if (ret == NULL) return s48_enter_string("");
|
||||||
|
|
||||||
|
return s48_enter_string (ret);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue