perl-openssl-checkins

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

Update of /cvsroot/perl-openssl/Crypt/OpenSSL/RSA
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8769

Modified Files:
	RSA.xs 
Log Message:
silence some compiler warnings


Index: RSA.xs
===================================================================
RCS file: /cvsroot/perl-openssl/Crypt/OpenSSL/RSA/RSA.xs,v
retrieving revision 1.61
retrieving revision 1.62
diff -C2 -d -r1.61 -r1.62
*** RSA.xs	13 Nov 2006 12:11:08 -0000	1.61
--- RSA.xs	13 Nov 2006 12:26:06 -0000	1.62
***************
*** 149,157 ****
      BUF_MEM* bptr;
  
!     BIO_flush(p_stringBio);
      BIO_get_mem_ptr(p_stringBio, &bptr);
      sv = newSVpv(bptr->data, bptr->length);
  
!     BIO_set_close(p_stringBio, BIO_CLOSE);
      BIO_free(p_stringBio);
      return sv;
--- 149,157 ----
      BUF_MEM* bptr;
  
!     CHECK_OPEN_SSL(BIO_flush(p_stringBio) == 1);
      BIO_get_mem_ptr(p_stringBio, &bptr);
      sv = newSVpv(bptr->data, bptr->length);
  
!     CHECK_OPEN_SSL(BIO_set_close(p_stringBio, BIO_CLOSE) == 1);
      BIO_free(p_stringBio);
      return sv;
***************
*** 173,177 ****
      rsa = p_loader(stringBIO, NULL, NULL, NULL);
  
!     BIO_set_close(stringBIO, BIO_CLOSE);
      BIO_free(stringBIO);
  
--- 173,177 ----
      rsa = p_loader(stringBIO, NULL, NULL, NULL);
  
!     CHECK_OPEN_SSL(BIO_set_close(stringBIO, BIO_CLOSE) == 1);
      BIO_free(stringBIO);