make update

[openssl.git] / perl / openssl_digest.xs

diff --git a/perl/openssl_digest.xs b/perl/openssl_digest.xs
index e4bc29ea8950668aa618d560ffdcb317b1e9b6c5..4f2f8938cfc63d7e7804d47760d15d37c2609f94 100644 (file)
--- a/perl/openssl_digest.xs
+++ b/perl/openssl_digest.xs
@@ -23,13 +23,13 @@ void
 p5_EVP_MD_new(...)
        PREINIT:
                EVP_MD_CTX *ctx;
-               EVP_MD *md;
+               const EVP_MD *md;
                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