From 29ae139099abfa1f56109af3541866e95026ad16 Mon Sep 17 00:00:00 2001
From: tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Tue, 26 Jun 2012 18:14:29 +0000
Subject: revert commit r213 from Jun 20 2012 ("(srcrpm) simplify"), thus
 fixing srcrpm() until panu merges my patch

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

diff --git a/RPM4/NEWS b/RPM4/NEWS
index 152160f..a17503f 100644
--- a/RPM4/NEWS
+++ b/RPM4/NEWS
@@ -1,3 +1,5 @@
+- fix srcrpm()
+
 Version 0.31 - 25 June 2012
 
 - drop rpm5 functions: rpmsysinfodep, rpmgetconfdep, rpmcpuinfodep, rpmpipedep
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index ca7b902..a2002ea 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2655,7 +2655,8 @@ Spec_srcrpm(spec)
 #else   
     header = spec->packages->header;
 #endif
-    int no_src = !headerIsEntry(header, RPMTAG_SOURCERPM);
+    struct rpmtd_s td;
+    int no_src = headerGet(header, RPMTAG_NOPATCH, &td, HEADERGET_MINMEM) || headerGet(header, RPMTAG_NOSOURCE, &td, HEADERGET_MINMEM);
     char *nvr = headerGetAsString(header, RPMTAG_NVR);
     mXPUSHs(newSVpvf("%s/%s.%ssrc.rpm",
         rpmGetPath("%{_srcrpmdir}", NULL),
-- 
cgit v1.2.1