summaryrefslogtreecommitdiffstats
path: root/RPM4/src/RPM4.xs
diff options
context:
space:
mode:
Diffstat (limited to 'RPM4/src/RPM4.xs')
-rw-r--r--RPM4/src/RPM4.xs5
1 files 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);