Update for new keydata interface.

[catacomb-perl] / ec.xs

diff --git a/ec.xs b/ec.xs
index 83d1f72..7507c8f 100644 (file)
--- 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 *