aboutsummaryrefslogtreecommitdiffstats
path: root/perl/err.xs
diff options
context:
space:
mode:
authorRalf S. Engelschall <rse@openssl.org>1999-02-10 09:38:31 +0000
committerRalf S. Engelschall <rse@openssl.org>1999-02-10 09:38:31 +0000
commit8073036dd62848b616c6a817c155c3255074ec83 (patch)
tree8ae62e46c555ccc9e65b5dffd43cff25234c96af /perl/err.xs
parent0517335e3cdc565edbecb53dec8ef9091c936763 (diff)
downloadopenssl-8073036dd62848b616c6a817c155c3255074ec83.tar.gz
Overhauled the Perl interface (perl/*):
- 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)
Diffstat (limited to 'perl/err.xs')
-rw-r--r--perl/err.xs46
1 files changed, 0 insertions, 46 deletions
diff --git a/perl/err.xs b/perl/err.xs
deleted file mode 100644
index 6d1aec3ea1..0000000000
--- a/perl/err.xs
+++ /dev/null
@@ -1,46 +0,0 @@
-#include "p5SSLeay.h"
-
-int boot_err()
- {
- SSL_load_error_strings();
- return(1);
- }
-
-MODULE = SSLeay::ERR PACKAGE = SSLeay::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));
-
-