[Perl-openssl-checkins] Crypt/OpenSSL/RSA MANIFEST,1.6,1.7 README,1.10,1.11 RSA.pm,1.30,1.31 RSA.xs,1.34,1.35

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

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

Modified Files:
	MANIFEST README RSA.pm RSA.xs 
Log Message:
remove deprecated methods


Index: MANIFEST
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/MANIFEST,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** MANIFEST	16 Feb 2004 02:08:52 -0000	1.6
--- MANIFEST	16 Feb 2004 02:58:59 -0000	1.7
***************
*** 6,10 ****
  README
  typemap
- t/legacy.t
  t/rsa.t
  t/bignum.t
--- 6,9 ----

Index: README
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/README,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** README	15 Feb 2004 20:32:01 -0000	1.10
--- README	16 Feb 2004 02:58:59 -0000	1.11
***************
*** 31,53 ****
      make C_INCLUDE_PATH=/usr/kerberos/include
  
- 
- NOTE: as of version 0.17, the following methods are DEPRECATED:
-   - the no-arg new constructor - use new_from_public_key,
-     new_from_private_key or Crypt::OpenSSL::RSA->generate_key instead
-   - load_public_key - use new_from_public_key
-   - load_private_key - use new_from_private_key
-   - generate_key as an instance method - use it as a class constructor
-     method instead.
-   - set_padding_mode - use use_no_padding, use_pkcs1_padding,
-     use_pkcs1_oaep_padding, or use_sslv23_padding instead.
-   - get_padding_mode
- 
- While I plan a grace period of several months at least before removing
- these methods, they will go away, so you should start migrating your
- code now.  Of course, I am open to arguments why some or all of these
- methods should be kept around longer/permanently; feel free to send
- email to me at iro...@cp..., or visit
- http://perl-openssl.sourceforge.net/.
- 
  Copyright (c) 2001-2004 Ian Robertson.  Crypt::OpenSSL::RSA is free
  software; you may redistribute it and/or modify it under the same
--- 31,34 ----

Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** RSA.pm	16 Feb 2004 02:11:14 -0000	1.30
--- RSA.pm	16 Feb 2004 02:58:59 -0000	1.31
***************
*** 96,100 ****
      my ($proto, $p_string) = @_;
      my $self = $proto->_new();
!     $self->load_public_key($p_string);
      return $self;
  }
--- 96,100 ----
      my ($proto, $p_string) = @_;
      my $self = $proto->_new();
!     $self->_load_public_key($p_string);
      return $self;
  }
***************
*** 113,117 ****
  {
      my $self = shift->_new();
!     $self->load_private_key(@_);
      return $self;
  }
--- 113,117 ----
  {
      my $self = shift->_new();
!     $self->_load_private_key(@_);
      return $self;
  }
***************
*** 125,147 ****
  PKCS1_OAEP, but can be changed with use_xxx_padding methods.
  
- I<NOTE> - using generate_key as an instance method on an rsa object
-   created by the deprecated new method is itself deprecated.
- 
  =cut
  
  sub generate_key
  {
!     if (ref $_[0])
!     {
!         warn "use of generate_key as an instance method instead of as a constructor has been deprecated.";
!         my $self = shift;
!         $self->_generate_key(@_);
!     }
!     else
!     {
!         my $self = shift->_new();
!         $self->_generate_key(@_);
!         return $self;
!     }
  }
  
--- 125,135 ----
  PKCS1_OAEP, but can be changed with use_xxx_padding methods.
  
  =cut
  
  sub generate_key
  {
!     my $self = shift->_new();
!     $self->_generate_key(@_);
!     return $self;
  }
  
***************
*** 181,199 ****
  }
  
- =item new
- 
- The no-arg new constructor is I<DEPRECATED> - use generate_key,
- new_public_key or new_private_key instead.
- 
- =cut
- 
- sub new
- {
-     warn "Crypt::OpenSSL::RSA::new is deprecated";
-     return shift->_new();
- }
- 
- #deprecated
- 
  sub _new
  {
--- 169,172 ----
***************
*** 222,232 ****
  }
  
! =item load_public_key
! 
! I<DEPRECATED> - use new_public_key instead
! 
! =cut
! 
! sub load_public_key
  {
      my ($self, $p_key_string) = @_;
--- 195,199 ----
  }
  
! sub _load_public_key
  {
      my ($self, $p_key_string) = @_;
***************
*** 245,252 ****
  }
  
- =item load_private_key
- 
- I<DEPRECATED> - use new_private_key instead
- 
  =item get_public_key_string
  
--- 212,215 ----
***************
*** 289,305 ****
  Decrypt a binary "string".  Croaks if the key is public only.
  
- =item set_padding_mode
- 
- I<DEPRECATED>  Use the use_xxx_padding methods instead
- 
  =cut
  
- sub set_padding_mode
- {
-     my $self = shift;
-     warn "set_padding_mode is deprecated.  Use use_xxx_padding instead";
-     shift->_set_padding_mode(@_) ;
- }
- 
  sub _set_padding_mode
  {
--- 252,257 ----
***************
*** 337,352 ****
  }
  
- =item get_padding_mode
- 
- I<DEPRECATED>
- 
- =cut
- 
- sub get_padding_mode
- {
-     warn "get_padding_mode is depreceated";
-     return shift->{_Padding_Mode};
- }
- 
  =item use_md5_hash
  
--- 289,292 ----

Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** RSA.xs	15 Feb 2004 15:02:46 -0000	1.34
--- RSA.xs	16 Feb 2004 02:58:59 -0000	1.35
***************
*** 233,237 ****
  
  void
! load_private_key(rsa_HV, key_string_SV)
      HV* rsa_HV;
      SV* key_string_SV;
--- 233,237 ----
  
  void
! _load_private_key(rsa_HV, key_string_SV)
      HV* rsa_HV;
      SV* key_string_SV;