[Scsh-checkins] CVS: scsh-0.6/scsh syscalls1.c,1.16,1.17

[Martin Gasbichler <mainzelm@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh-0.6/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv23656/scsh

Modified Files:
        syscalls1.c 
Log Message:
Fix in crypt for FreeBSD.


Index: syscalls1.c
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/syscalls1.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** syscalls1.c 2001/06/03 17:33:04     1.16
--- syscalls1.c 2001/06/19 11:33:08     1.17
***************
*** 759,763 ****
  s48_value scm_crypt(s48_value key, s48_value salt)
  {
!   return s48_enter_string (crypt ( s48_extract_string (key), 
!                                  s48_extract_string(salt)));
  }
--- 759,768 ----
  s48_value scm_crypt(s48_value key, s48_value salt)
  {
!   char * ret = crypt (s48_extract_string (key), 
!                     s48_extract_string(salt));
! 
!   // FreeBSD does this on error:
!   if (ret == NULL) return s48_enter_string("");
! 
!   return s48_enter_string (ret);
  }