Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15670
Modified Files:
RSA.xs RSA.pm
Log Message:
implement DESTROY directly in XS code
Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.41
retrieving revision 1.42
diff -C2 -d -r1.41 -r1.42
*** RSA.xs 16 Feb 2004 05:10:44 -0000 1.41
--- RSA.xs 16 Feb 2004 05:23:54 -0000 1.42
***************
*** 44,48 ****
rsa->padding = RSA_PKCS1_OAEP_PADDING;
return sv_bless(
! newRV_inc(newSViv((IV) rsa)),
(SvROK(p_proto) ? SvSTASH(SvRV(p_proto)) : gv_stashsv(p_proto, 1)));
}
--- 44,48 ----
rsa->padding = RSA_PKCS1_OAEP_PADDING;
return sv_bless(
! newRV_noinc(newSViv((IV) rsa)),
(SvROK(p_proto) ? SvSTASH(SvRV(p_proto)) : gv_stashsv(p_proto, 1)));
}
***************
*** 198,202 ****
void
! _cleanup(p_rsa)
rsaData* p_rsa;
CODE:
--- 198,202 ----
void
! DESTROY(p_rsa)
rsaData* p_rsa;
CODE:
Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** RSA.pm 16 Feb 2004 05:10:44 -0000 1.35
--- RSA.pm 16 Feb 2004 05:23:54 -0000 1.36
***************
*** 159,169 ****
occupied by the RSA key structure.
- =cut
-
- sub DESTROY
- {
- shift->_cleanup();
- }
-
=item get_public_key_string
--- 159,162 ----
|