diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-06-12 17:37:23 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-06-12 17:37:23 +0000 |
| commit | bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72 (patch) | |
| tree | 1944b925031acfdcfdcce05ef5cad099c0b61c9c | |
| parent | 23005b8929e92d379b12fc074c3c378b1efbecf4 (diff) | |
| download | perl-RPM4-bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72.tar perl-RPM4-bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72.tar.gz perl-RPM4-bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72.tar.bz2 perl-RPM4-bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72.tar.xz perl-RPM4-bae8df3a4971bfdacc5096eb9a8d2ca4bef27c72.zip | |
(Spec_srcrpm) adapt to rpm 4.6 changes: headerNVR -> headerGet
(using previously introduced wrappers)
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@188 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/src/RPM4.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index ac6c556..285f54f 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -2746,16 +2746,16 @@ Spec_srcrpm(spec) #else header = spec->packages->header; #endif - (void) headerNVR(header, &name, &version, &release); + name = get_name(header, RPMTAG_NAME); + version = get_name(header, RPMTAG_VERSION); + release = get_name(header, RPMTAG_RELEASE); + XPUSHs(sv_2mortal(newSVpvf("%s/%s-%s-%s.%ssrc.rpm", rpmGetPath("%{_srcrpmdir}", NULL), name, version, release, // FIXME: we basically want genSourceRpmName() which is internal :-( "" //spec->noSource ? "no" : "" ))); - headerFreeTag(header, name, RPM_STRING_TYPE); - headerFreeTag(header, version, RPM_STRING_TYPE); - headerFreeTag(header, release, RPM_STRING_TYPE); void Spec_binrpm(spec) |