diff options
author | Panu Matilainen <pmatilai@redhat.com> | 2017-10-05 14:27:25 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2017-10-28 00:00:11 +0200 |
commit | c0da9a721f4e46e159497d4ed392a2d0eae4a37b (patch) | |
tree | 75fbf8132d27e672b39b978edbfa58bb5f363267 | |
parent | 250cfa0d7318a364a8d48efaa268ce25b14cf3c3 (diff) | |
download | perl-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.xs | 2 |
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 |