perl-openssl-checkins

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

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

Modified Files:
	RSA.xs 
Log Message:
use default values - much simpler

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** RSA.xs	16 Feb 2004 05:02:56 -0000	1.39
--- RSA.xs	16 Feb 2004 05:06:57 -0000	1.40
***************
*** 249,265 ****
  
  SV*
! generate_key(proto, bitsSV, ...)
      SV* proto;
      SV* bitsSV;
    PREINIT:
      RSA* rsa;
-     unsigned long exponent;
    CODE:
-     if (items > 3)
-     {
-         croak("Usage: rsa->generate_key($bits [, $exponent])");
-     }
- 
-     exponent = (items == 3) ? SvIV(ST(2)) : 65535;
      CHECK_OPEN_SSL(rsa = RSA_generate_key(SvIV(bitsSV), exponent, NULL, NULL))
  
--- 249,259 ----
  
  SV*
! generate_key(proto, bitsSV, exponent = 65535)
      SV* proto;
      SV* bitsSV;
+     unsigned long exponent;
    PREINIT:
      RSA* rsa;
    CODE:
      CHECK_OPEN_SSL(rsa = RSA_generate_key(SvIV(bitsSV), exponent, NULL, NULL))