diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:01 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:01 +0000 |
| commit | 9b88b97979ebffd89e734cf85d419ed4e7aa2a18 (patch) | |
| tree | 7156c9c1f543e96a416e6966f70d0e9edb0345f6 /RPM4/src/RPM4.xs | |
| parent | cec6d832d7afb6b8db3229c1e8107be74d190f12 (diff) | |
| download | perl-RPM4-9b88b97979ebffd89e734cf85d419ed4e7aa2a18.tar perl-RPM4-9b88b97979ebffd89e734cf85d419ed4e7aa2a18.tar.gz perl-RPM4-9b88b97979ebffd89e734cf85d419ed4e7aa2a18.tar.bz2 perl-RPM4-9b88b97979ebffd89e734cf85d419ed4e7aa2a18.tar.xz perl-RPM4-9b88b97979ebffd89e734cf85d419ed4e7aa2a18.zip | |
(Spec_srcrpm) hide struct details
(needed for next commit)
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@158 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/src/RPM4.xs')
| -rw-r--r-- | RPM4/src/RPM4.xs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index 3f4ae6a..bbede1a 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -2781,20 +2781,22 @@ Spec_srcrpm(spec) rpmSpec spec PREINIT: const char *name, *version, *release; + Header header = NULL; PPCODE: #ifdef RPM4_9_0 croak("srcrpm is no more supported with rpm 4.9; FIXME"); #else - (void) headerNVR(spec->packages->header, &name, &version, &release); + header = spec->packages->header; +#endif + (void) headerNVR(header, &name, &version, &release); XPUSHs(sv_2mortal(newSVpvf("%s/%s-%s-%s.%ssrc.rpm", rpmGetPath("%{_srcrpmdir}", NULL), name, version, release, spec->noSource ? "no" : "" ))); - headerFreeTag(spec->packages->header, name, RPM_STRING_TYPE); - headerFreeTag(spec->packages->header, version, RPM_STRING_TYPE); - headerFreeTag(spec->packages->header, release, RPM_STRING_TYPE); -#endif + headerFreeTag(header, name, RPM_STRING_TYPE); + headerFreeTag(header, version, RPM_STRING_TYPE); + headerFreeTag(header, release, RPM_STRING_TYPE); void Spec_binrpm(spec) |