diff options
| author | Richard Levitte <levitte@openssl.org> | 2001-02-19 09:29:53 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2001-02-19 09:29:53 +0000 |
| commit | 95ffe86dbcdaab3db70eaf082f7975166f982fcc (patch) | |
| tree | 47e77808a0f213708fe35e6824cb3922dc8db817 /perl/openssl_digest.xs | |
| parent | 87b79c3ef3f05e8048c762c2d214b85180e00567 (diff) | |
Perl code patch contributed by "Kurt J. Pires" <kjpires@iat.com>
His own words are:
The patch adds no new functionality (other than a simple test package)
to the libraries, but it allows them to be compiled with Perl5.6.0.
It has only been tested under "Red Hat Linux release 7.0 (Guinness)"
with the unpatched verion of OpenSSL 0.9.6 released last September.
Diffstat (limited to 'perl/openssl_digest.xs')
| -rw-r--r-- | perl/openssl_digest.xs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl/openssl_digest.xs b/perl/openssl_digest.xs index 6cd3018e9f..4f2f8938cf 100644 --- a/perl/openssl_digest.xs +++ b/perl/openssl_digest.xs @@ -27,9 +27,9 @@ p5_EVP_MD_new(...) char *name; PPCODE: if ((items == 1) && SvPOK(ST(0))) - name=SvPV(ST(0),na); + name=SvPV_nolen(ST(0)); else if ((items == 2) && SvPOK(ST(1))) - name=SvPV(ST(1),na); + name=SvPV_nolen(ST(1)); else croak("Usage: OpenSSL::MD::new(type)"); PUSHs(sv_newmortal()); @@ -45,8 +45,9 @@ datum p5_EVP_MD_name(ctx) EVP_MD_CTX *ctx CODE: - RETVAL.dptr=OBJ_nid2ln(EVP_MD_type(EVP_MD_CTX_type(ctx))); + RETVAL.dptr=OBJ_nid2ln(EVP_MD_CTX_type(ctx)); RETVAL.dsize=strlen(RETVAL.dptr); + OUTPUT: RETVAL |