[Perl-openssl-checkins] Crypt/OpenSSL/RSA RSA.pm,1.34,1.35 RSA.xs,1.40,1.41

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

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*