Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13818
Modified Files:
RSA.pm RSA.xs
Log Message:
free the struct as well as the rsa object
Index: RSA.pm
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** RSA.pm 16 Feb 2004 04:40:15 -0000 1.34
--- RSA.pm 16 Feb 2004 05:10:44 -0000 1.35
***************
*** 163,167 ****
sub DESTROY
{
! shift->_free_RSA_key();
}
--- 163,167 ----
sub DESTROY
{
! shift->_cleanup();
}
Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** RSA.xs 16 Feb 2004 05:06:57 -0000 1.40
--- RSA.xs 16 Feb 2004 05:10:44 -0000 1.41
***************
*** 198,205 ****
void
! _free_RSA_key(p_rsa)
rsaData* p_rsa;
CODE:
RSA_free(p_rsa->rsa);
SV*
--- 198,206 ----
void
! _cleanup(p_rsa)
rsaData* p_rsa;
CODE:
RSA_free(p_rsa->rsa);
+ Safefree(p_rsa);
SV*
|
