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

diff --git a/ec.xs b/ec.xs
index 83d1f72..7507c8f 100644
--- a/ec.xs
+++ b/ec.xs
@@ -123,7 +123,7 @@ get(s)
 	else {
 	  XPUSHs(RET(p, "Catacomb::EC::Point"));
 	  if (GIMME_V == G_ARRAY)
-	    XPUSHs(sv_2mortal(newSVpvn(BCUR(&b), BLEFT(&b))));
+	    XPUSHs(sv_2mortal(newSVpvn((char *)BCUR(&b), BLEFT(&b))));
 	}
 
 MODULE = Catacomb PACKAGE = Catacomb::EC::Curve PREFIX = ec_
@@ -252,7 +252,7 @@ _getraw(c, s)
 	else {
 	  XPUSHs(RET(p, "Catacomb::EC::Point"));
 	  if (GIMME_V == G_ARRAY)
-	    XPUSHs(sv_2mortal(newSVpvn(BCUR(&b), BLEFT(&b))));
+	    XPUSHs(sv_2mortal(newSVpvn((char *)BCUR(&b), BLEFT(&b))));
 	}
 
 ec *