view release on metacpan or  search on metacpan

PKCS10.xs  view on Meta::CPAN

    OUTPUT:
        RETVAL

void
DESTROY(pkcs10)
    pkcs10Data *pkcs10;

    PREINIT:
    //BIO *bio_err;

    PPCODE:
    //bio_err=BIO_new_fp(stderr, BIO_NOCLOSE);
    if (pkcs10->pk)   EVP_PKEY_free(pkcs10->pk); pkcs10->pk = 0;
    if (pkcs10->rsa) *pkcs10->rsa = 0;
    if (pkcs10->req)  X509_REQ_free(pkcs10->req); pkcs10->req = 0;
    Safefree(pkcs10);
    CRYPTO_cleanup_all_ex_data();
    /*CRYPTO_mem_leaks(bio_err);
    BIO_free(bio_err);*/

SV*