From fdb1f38aa050e42eac627bd8de8ff463c06485d8 Mon Sep 17 00:00:00 2001
From: tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Wed, 26 Oct 2016 16:11:02 +0000
Subject: fix segfault in testsuite

else we segfault in plugins/syslog.c's syslog_tsm_pre() because
rpmtsRootDir(ts) returns NULL

rpmlib expects rootdir to always have been set

testsuite was segfaulting since at least mga5/rpm-4.12

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@261 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/NEWS        | 2 ++
 RPM4/src/RPM4.xs | 3 +--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/RPM4/NEWS b/RPM4/NEWS
index b95a9a4..55df342 100644
--- a/RPM4/NEWS
+++ b/RPM4/NEWS
@@ -1,3 +1,5 @@
+- fix segfault in testsuite
+
 Version 0.35 - 1 August 2015
 
 - drop methods only supported in rpm < 4.9
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 86d1228..659f496 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -1405,8 +1405,7 @@ Ts_new(perlclass, rootdir = NULL)
     PREINIT:
     rpmts ts = rpmtsCreate();
     PPCODE:
-    if (rootdir)
-        rpmtsSetRootDir(ts, rootdir);
+    rpmtsSetRootDir(ts, rootdir);
     mXPUSHs(sv_setref_pv(newSVpvs(""), perlclass, (void *)ts));
  
 void
-- 
cgit v1.2.1