perl-openssl-checkins

[<iro...@us...>]

Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19062

Modified Files:
	RSA.xs 
Log Message:
Use CHECK_OPEN_SSL more directly

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.43
retrieving revision 1.44
diff -C2 -d -r1.43 -r1.44
*** RSA.xs	16 Feb 2004 05:41:11 -0000	1.43
--- RSA.xs	16 Feb 2004 05:43:24 -0000	1.44
***************
*** 546,558 ****
  
      digest = get_message_digest(text_SV, p_rsa->hashMode);
!     if (! RSA_sign(p_rsa->hashMode,
!                    digest,
!                    get_digest_length(p_rsa->hashMode),
!                    signature,
!                    &signature_length,
!                    rsa))
!     {
!         CHECK_OPEN_SSL(0)
!     }
      Safefree(digest);
      RETVAL = newSVpvn(signature, signature_length);
--- 546,555 ----
  
      digest = get_message_digest(text_SV, p_rsa->hashMode);
!     CHECK_OPEN_SSL(RSA_sign(p_rsa->hashMode,
!                             digest,
!                             get_digest_length(p_rsa->hashMode),
!                             signature,
!                             &signature_length,
!                             rsa))
      Safefree(digest);
      RETVAL = newSVpvn(signature, signature_length);