diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:03 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:03 +0000 |
| commit | 9c743f0dcd29c863257b74369b5f66eab58fbba9 (patch) | |
| tree | 5f5aa9575d2b2e8402dfb006d0f131a281b4044a | |
| parent | 9b88b97979ebffd89e734cf85d419ed4e7aa2a18 (diff) | |
| download | perl-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
| -rw-r--r-- | RPM4/src/RPM4.xs | 5 |
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); |