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

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

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