Update for new keydata interface.

[catacomb-perl] / pubkey.xs

diff --git a/pubkey.xs b/pubkey.xs
index ee98e5c..4db8032 100644 (file)
--- 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;