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;
|
