summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:03 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:03 +0000
commit9c743f0dcd29c863257b74369b5f66eab58fbba9 (patch)
tree5f5aa9575d2b2e8402dfb006d0f131a281b4044a /RPM4
parent9b88b97979ebffd89e734cf85d419ed4e7aa2a18 (diff)
downloadperl-RPM4-9c743f0dcd29c863257b74369b5f66eab58fbba9.tar
perl-RPM4-9c743f0dcd29c863257b74369b5f66eab58fbba9.tar.gz
perl-RPM4-9c743f0dcd29c863257b74369b5f66eab58fbba9.tar.bz2
perl-RPM4-9c743f0dcd29c863257b74369b5f66eab58fbba9.tar.xz
perl-RPM4-9c743f0dcd29c863257b74369b5f66eab58fbba9.zip
(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
Diffstat (limited to 'RPM4')
-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);