The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include <openssl/ssl.h>
#include <openssl/crypto.h>
#include <openssl/err.h>
MODULE = Crypt::OpenSSL::Common PACKAGE = Crypt::OpenSSL::Common
PROTOTYPES: DISABLE
long version()
CODE:
RETVAL = SSLeay();
OUTPUT:
RETVAL
long version_atbuild()
CODE:
RETVAL = OPENSSL_VERSION_NUMBER;
OUTPUT:
RETVAL
long
get_error()
CODE:
RETVAL = ERR_get_error();
OUTPUT:
RETVAL
char *
error_string(code)
long code;
CODE:
RETVAL = ERR_error_string(code, NULL);
OUTPUT:
RETVAL
void
load_crypto_strings()
CODE:
ERR_load_crypto_strings();
BOOT:
{
SSL_library_init();
}