~mdw
/
catacomb-perl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Extract Subversion ignore data.
[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)
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 *
}
SV *
@@
-391,7
+391,7
@@
_getraw(g, s)
else {
XPUSHs(RET(x, "Catacomb::Group::Element"));
if (GIMME_V == G_ARRAY)
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 *
}
SV *