X-Git-Url: https://git.distorted.org.uk/~mdw/catacomb-perl/blobdiff_plain/bdf77f6dbd9205c70639fb682059e4ba0761c767..bfdf19cbde6d9f5cdb740d258fcc439a4a412ab0:/pubkey.xs

diff --git a/pubkey.xs b/pubkey.xs
index ee98e5c..4db8032 100644
--- a/pubkey.xs
+++ b/pubkey.xs
@@ -107,7 +107,7 @@ gen_dsa(me, ql, pl, steps = 0, k = &PL_sv_undef, events = &PL_sv_undef)
 	XPUSHs(RET_MP(dp.p));
 	XPUSHs(RET_MP(dp.g));
 	XPUSHs(RET_MP(dp.q));
-	XPUSHs(sv_2mortal(newSVpvn(ds.p, ds.sz)));
+	XPUSHs(sv_2mortal(newSVpvn((char *)ds.p, ds.sz)));
 	XPUSHs(sv_2mortal(newSViv(ds.count)));
 	xfree(ds.p);
 
@@ -222,7 +222,7 @@ sign(c, m, k = 0)
 	if (len != g.h->hashsz)
 	  croak("bad message length");
 	gkcdsa_sign(&g, &s, p, k);
-	XPUSHs(sv_2mortal(newSVpvn(s.r, g.h->hashsz)));
+	XPUSHs(sv_2mortal(newSVpvn((char *)s.r, g.h->hashsz)));
 	XPUSHs(RET_MP(s.s));
 	xfree(s.r);
 
@@ -244,7 +244,7 @@ verify(c, m, r, s)
 	p = SvPV(m, len);
 	if (len != g.h->hashsz)
 	  croak("bad message length");
-	ss.r = SvPV(r, len);
+	ss.r = (void *)SvPV(r, len);
 	if (len != g.h->hashsz)
 	  croak("bad signature (r) length");
 	ss.s = s;