Update for new keydata interface.

[catacomb-perl] / group.xs

diff --git a/group.xs b/group.xs
index 51af11c..a329c82 100644 (file)
--- 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 *