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

diff --git a/group.xs b/group.xs
index 51af11c..a329c82 100644
--- a/group.xs
+++ b/group.xs
@@ -354,7 +354,7 @@ _getbuf(g, s)
 	else {
 	  XPUSHs(RET(x, "Catacomb::Group::Element"));
 	  if (GIMME_V == G_ARRAY)
-	    XPUSHs(sv_2mortal(newSVpvn(BCUR(&b), BLEFT(&b))));
+	    XPUSHs(sv_2mortal(newSVpvn((char *)BCUR(&b), BLEFT(&b))));
 	}
 
 SV *
@@ -391,7 +391,7 @@ _getraw(g, s)
 	else {
 	  XPUSHs(RET(x, "Catacomb::Group::Element"));
 	  if (GIMME_V == G_ARRAY)
-	    XPUSHs(sv_2mortal(newSVpvn(BCUR(&b), BLEFT(&b))));
+	    XPUSHs(sv_2mortal(newSVpvn((char *)BCUR(&b), BLEFT(&b))));
 	}
 
 SV *