[Perl-openssl-checkins] Crypt/OpenSSL/RSA RSA.pm,1.36,1.37 RSA.xs,1.44,1.45

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

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

Modified Files:
	RSA.pm RSA.xs 
Log Message:
fix default public exponent


Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** RSA.pm	16 Feb 2004 05:23:54 -0000	1.36
--- RSA.pm	17 Feb 2004 16:54:32 -0000	1.37
***************
*** 110,114 ****
  private/public key pair.  The first (mandetory) argument is the key
  size, while the second optional argument specifies the public exponent
! (the default public exponent is 65535).  The padding is set to
  PKCS1_OAEP, but can be changed with use_xxx_padding methods.
  
--- 110,114 ----
  private/public key pair.  The first (mandetory) argument is the key
  size, while the second optional argument specifies the public exponent
! (the default public exponent is 65537).  The padding is set to
  PKCS1_OAEP, but can be changed with use_xxx_padding methods.
  

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** RSA.xs	16 Feb 2004 05:43:24 -0000	1.44
--- RSA.xs	17 Feb 2004 16:54:32 -0000	1.45
***************
*** 244,254 ****
      RETVAL
  
-  #
-  # Generate a new RSA key.  The optional third argument is a prime.
-  # It defaults to 65535
-  #
- 
  SV*
! generate_key(proto, bitsSV, exponent = 65535)
      SV* proto;
      SV* bitsSV;
--- 244,249 ----
      RETVAL
  
  SV*
! generate_key(proto, bitsSV, exponent = 65537)
      SV* proto;
      SV* bitsSV;