diff options
author | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
---|---|---|
committer | Ralf S. Engelschall <rse@openssl.org> | 1999-02-10 09:38:31 +0000 |
commit | 8073036dd62848b616c6a817c155c3255074ec83 (patch) | |
tree | 8ae62e46c555ccc9e65b5dffd43cff25234c96af /perl/openssl_digest.xs | |
parent | 0517335e3cdc565edbecb53dec8ef9091c936763 (diff) |
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/openssl_digest.xs')
-rw-r--r-- | perl/openssl_digest.xs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl/openssl_digest.xs b/perl/openssl_digest.xs index 5738b09e48..e4bc29ea89 100644 --- a/perl/openssl_digest.xs +++ b/perl/openssl_digest.xs @@ -1,4 +1,5 @@ -#include "p5SSLeay.h" + +#include "openssl.h" int boot_digest() { @@ -6,12 +7,12 @@ int boot_digest() return(1); } -MODULE = SSLeay::MD PACKAGE = SSLeay::MD PREFIX = p5_EVP_MD_ +MODULE = OpenSSL::MD PACKAGE = OpenSSL::MD PREFIX = p5_EVP_MD_ PROTOTYPES: ENABLE VERSIONCHECK: DISABLE -# SSLeay::MD::new(name) name= md2, md5, sha, sha1, or mdc2 +# OpenSSL::MD::new(name) name= md2, md5, sha, sha1, or mdc2 # md->name() - returns the name # md->init() - reinitalises the digest # md->update(data) - adds more data to digest @@ -30,14 +31,14 @@ p5_EVP_MD_new(...) else if ((items == 2) && SvPOK(ST(1))) name=SvPV(ST(1),na); else - croak("Usage: SSLeay::MD::new(type)"); + croak("Usage: OpenSSL::MD::new(type)"); PUSHs(sv_newmortal()); md=EVP_get_digestbyname(name); if (md != NULL) { ctx=malloc(sizeof(EVP_MD_CTX)); EVP_DigestInit(ctx,md); - sv_setref_pv(ST(0), "SSLeay::MD", (void*)ctx); + sv_setref_pv(ST(0), "OpenSSL::MD", (void*)ctx); } datum |