perl-openssl-checkins

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

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

Modified Files:
	RSA.xs 
Log Message:
remove some temporaries, fix a FIXME

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.48
retrieving revision 1.49
diff -C2 -d -r1.48 -r1.49
*** RSA.xs	18 Feb 2004 22:04:28 -0000	1.48
--- RSA.xs	18 Feb 2004 22:09:48 -0000	1.49
***************
*** 506,510 ****
      char* digest;
      int signature_length;
-     RSA* rsa;
    CODE:
      if (! is_private(p_rsa))
--- 506,509 ----
***************
*** 513,519 ****
      }
  
!     rsa = p_rsa->rsa;
! 
!     CHECK_NEW(signature, RSA_size(rsa), char)
  
      digest = get_message_digest(text_SV, p_rsa->hashMode);
--- 512,516 ----
      }
  
!     CHECK_NEW(signature, RSA_size(p_rsa->rsa), char)
  
      digest = get_message_digest(text_SV, p_rsa->hashMode);
***************
*** 523,527 ****
                              signature,
                              &signature_length,
!                             rsa))
      Safefree(digest);
      RETVAL = newSVpvn(signature, signature_length);
--- 520,524 ----
                              signature,
                              &signature_length,
!                             p_rsa->rsa))
      Safefree(digest);
      RETVAL = newSVpvn(signature, signature_length);
***************
*** 530,534 ****
      RETVAL
  
! # Verify signature. Returns 1 if correct, 0 otherwise.
  
  void
--- 527,531 ----
      RETVAL
  
! # Verify signature. Returns true if correct, false otherwise.
  
  void
***************
*** 541,551 ****
      unsigned char* sig;
      char* digest;
-     RSA* rsa;
      int sig_length;
      int result;
  
      sig = SvPV(sig_SV, sig_length);
!     rsa = p_rsa->rsa;
!     if (RSA_size(rsa) < sig_length)
      {
          croak("Signature longer than key");
--- 538,546 ----
      unsigned char* sig;
      char* digest;
      int sig_length;
      int result;
  
      sig = SvPV(sig_SV, sig_length);
!     if (RSA_size(p_rsa->rsa) < sig_length)
      {
          croak("Signature longer than key");
***************
*** 562,566 ****
      switch(result)
      {
!         case 0: /* FIXME - could there be an error in this case? */
              XSRETURN_NO;
              break;
--- 557,562 ----
      switch(result)
      {
!         case 0:
!             CHECK_OPEN_SSL(ERR_peek_error())
              XSRETURN_NO;
              break;