~mdw
/
catacomb-perl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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(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);
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);
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);
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");
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;
if (len != g.h->hashsz)
croak("bad signature (r) length");
ss.s = s;