summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:01 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:01 +0000
commit9b88b97979ebffd89e734cf85d419ed4e7aa2a18 (patch)
tree7156c9c1f543e96a416e6966f70d0e9edb0345f6 /RPM4
parentcec6d832d7afb6b8db3229c1e8107be74d190f12 (diff)
downloadperl-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')
-rw-r--r--RPM4/src/RPM4.xs12
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)