This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change to sv_reftype return value caused compile for Digest::MD5
[perl5.git] / ext / Digest / MD5 / MD5.xs
index 3223c3d..1075774 100644 (file)
@@ -587,7 +587,7 @@ clone(self)
        SV* self
     PREINIT:
        MD5_CTX* cont = get_md5_ctx(aTHX_ self);
-       char *myname = sv_reftype(SvRV(self),TRUE);
+       const char *myname = sv_reftype(SvRV(self),TRUE);
        MD5_CTX* context;
     PPCODE:
        New(55, context, 1, MD5_CTX);