From 9c743f0dcd29c863257b74369b5f66eab58fbba9 Mon Sep 17 00:00:00 2001
From: tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Wed, 14 Dec 2011 19:37:03 +0000
Subject: (Spec_srcrpm) implement it for rpm-4.9.x

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

diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index bbede1a..777e155 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2784,7 +2784,7 @@ Spec_srcrpm(spec)
     Header header = NULL;
     PPCODE:
 #ifdef RPM4_9_0
-    croak("srcrpm is no more supported with rpm 4.9; FIXME");
+    header = rpmSpecSourceHeader(spec);
 #else   
     header = spec->packages->header;
 #endif
@@ -2792,7 +2792,8 @@ Spec_srcrpm(spec)
     XPUSHs(sv_2mortal(newSVpvf("%s/%s-%s-%s.%ssrc.rpm",
         rpmGetPath("%{_srcrpmdir}", NULL),
         name, version, release,
-        spec->noSource ? "no" : ""
+	// FIXME: we basically want genSourceRpmName() which is internal :-(
+        "" //spec->noSource ? "no" : ""
         )));
     headerFreeTag(header, name, RPM_STRING_TYPE);
     headerFreeTag(header, version, RPM_STRING_TYPE);
-- 
cgit v1.2.1