[Perl-openssl-checkins] Crypt/OpenSSL/RSA RSA.xs,1.51,1.52

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

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

Modified Files:
	RSA.xs 
Log Message:
get rid of a temporary var

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.51
retrieving revision 1.52
diff -C2 -d -r1.51 -r1.52
*** RSA.xs	19 Feb 2004 02:19:40 -0000	1.51
--- RSA.xs	19 Feb 2004 02:24:41 -0000	1.52
***************
*** 301,305 ****
      RSA* rsa;
      BN_CTX* ctx;
-     BIGNUM* bn;
      BIGNUM* p_minus_1;
      BIGNUM* q_minus_1;
--- 301,304 ----
***************
*** 317,321 ****
      if (p || q)
      {
-         bn = BN_new();
          ctx = BN_CTX_new();
          if (!p)
--- 316,319 ----
***************
*** 338,343 ****
          {
              d = BN_new();
!             CHECK_OPEN_SSL(BN_mul(bn, p_minus_1, q_minus_1, ctx))
!             CHECK_OPEN_SSL(BN_mod_inverse(d, e, bn, ctx))
          }
          rsa->d = d;
--- 336,341 ----
          {
              d = BN_new();
!             CHECK_OPEN_SSL(BN_mul(d, p_minus_1, q_minus_1, ctx))
!             CHECK_OPEN_SSL(BN_mod_inverse(d, e, d, ctx))
          }
          rsa->d = d;
***************
*** 348,352 ****
          rsa->iqmp = BN_new();
          CHECK_OPEN_SSL(BN_mod_inverse(rsa->iqmp, q, p, ctx))
-         BN_clear_free(bn);
          BN_clear_free(p_minus_1);
          BN_clear_free(q_minus_1);
--- 346,349 ----