summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPanu Matilainen <pmatilai@redhat.com>2017-10-05 14:27:25 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2017-10-28 00:00:11 +0200
commitc0da9a721f4e46e159497d4ed392a2d0eae4a37b (patch)
tree75fbf8132d27e672b39b978edbfa58bb5f363267
parent250cfa0d7318a364a8d48efaa268ce25b14cf3c3 (diff)
downloadperl-RPM4-c0da9a721f4e46e159497d4ed392a2d0eae4a37b.tar
perl-RPM4-c0da9a721f4e46e159497d4ed392a2d0eae4a37b.tar.gz
perl-RPM4-c0da9a721f4e46e159497d4ed392a2d0eae4a37b.tar.bz2
perl-RPM4-c0da9a721f4e46e159497d4ed392a2d0eae4a37b.tar.xz
perl-RPM4-c0da9a721f4e46e159497d4ed392a2d0eae4a37b.zip
fix a segfault regression with rpm-4.14
it only happens when the perl callback wrapper also calls the default librpm callback too
-rw-r--r--RPM4/src/RPM4.xs2
1 files changed, 1 insertions, 1 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 04c65ee..ccaf6fd 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -246,7 +246,7 @@ static void *
s_what = "INST_START";
if (h) {
mXPUSHs(newSVpv("header", 0));
- mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, &h));
+ mXPUSHs(sv_setref_pv(newSVpvs(""), bless_header, headerLink(h)));
#ifdef HDRPMMEM
PRINTF_NEW(bless_header, &h, -1);
#endif