From c0da9a721f4e46e159497d4ed392a2d0eae4a37b Mon Sep 17 00:00:00 2001
From: Panu Matilainen <pmatilai@redhat.com>
Date: Thu, 5 Oct 2017 14:27:25 +0200
Subject: fix a segfault regression with rpm-4.14

it only happens when the perl callback wrapper also calls the default
librpm callback too
---
 RPM4/src/RPM4.xs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.1