mirror of
https://github.com/openssl/openssl.git
synced 2024-11-25 19:13:48 +08:00
8073036dd6
- ported BN stuff to OpenSSL's different BN library - made the perl/ source tree CVS-aware - renamed the package from SSLeay to OpenSSL (the files still contain their history because I've copied them in the repository) - removed obsolete files (the test scripts will be replaced by better Test::Harness variants in the future)
48 lines
772 B
Plaintext
48 lines
772 B
Plaintext
|
|
#include "openssl.h"
|
|
|
|
int boot_err()
|
|
{
|
|
SSL_load_error_strings();
|
|
return(1);
|
|
}
|
|
|
|
MODULE = OpenSSL::ERR PACKAGE = OpenSSL::ERR PREFIX = p5_ERR_
|
|
|
|
PROTOTYPES: ENABLE
|
|
VERSIONCHECK: DISABLE
|
|
|
|
# md->error() - returns the last error in text or numeric context
|
|
|
|
void
|
|
p5_ERR_get_error(...)
|
|
PPCODE:
|
|
char buf[512];
|
|
unsigned long l;
|
|
|
|
pr_name("p5_ERR_get_code");
|
|
EXTEND(sp,1);
|
|
PUSHs(sv_newmortal());
|
|
l=ERR_get_error();
|
|
ERR_error_string(l,buf);
|
|
sv_setiv(ST(0),l);
|
|
sv_setpv(ST(0),buf);
|
|
SvIOK_on(ST(0));
|
|
|
|
void
|
|
p5_ERR_peek_error(...)
|
|
PPCODE:
|
|
char buf[512];
|
|
unsigned long l;
|
|
|
|
pr_name("p5_ERR_get_code");
|
|
EXTEND(sp,1);
|
|
PUSHs(sv_newmortal());
|
|
l=ERR_peek_error();
|
|
ERR_error_string(l,buf);
|
|
sv_setiv(ST(0),l);
|
|
sv_setpv(ST(0),buf);
|
|
SvIOK_on(ST(0));
|
|
|
|
|