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