summaryrefslogtreecommitdiffstats
path: root/RPM4
diff options
context:
space:
mode:
authortv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:08 +0000
committertv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>2011-12-14 19:37:08 +0000
commit9cbbeadd220097da7afc48105d541c2f267bd6cf (patch)
tree0c00d76ab6642737d3ec97da6f33432b4502a04a /RPM4
parentc7e5bc027ba3ca22a60f3d2e4d2ec2523122c15a (diff)
downloadperl-RPM4-9cbbeadd220097da7afc48105d541c2f267bd6cf.tar
perl-RPM4-9cbbeadd220097da7afc48105d541c2f267bd6cf.tar.gz
perl-RPM4-9cbbeadd220097da7afc48105d541c2f267bd6cf.tar.bz2
perl-RPM4-9cbbeadd220097da7afc48105d541c2f267bd6cf.tar.xz
perl-RPM4-9cbbeadd220097da7afc48105d541c2f267bd6cf.zip
(Spec_binheader) implement it for rpm-4.9.x
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@162 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4')
-rw-r--r--RPM4/src/RPM4.xs13
1 files changed, 4 insertions, 9 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index bf0e8a3..df75a87 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2763,19 +2763,14 @@ Spec_binheader(spec)
Package pkg;
PPCODE:
#ifdef RPM4_9_0
-/* we could use something like:
- rpmSpecPkgIter iter = rpmSpecPkgIterInit(spec);
- while ((pkg = rpmSpecPkgIterNext(iter)) != NULL)
- (...)
-
- but it's unused...
-*/
- croak("binheader is no more supported with rpm 4.9; unused anyway");
+ rpmSpecPkgIter iter = rpmSpecPkgIterInit(spec);
+ while ((pkg = rpmSpecSrcIterNext(iter)) != NULL)
+ XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), bless_header, (void *)headerLink(rpmSpecPkgHeader(pkg)))));
#else
for (pkg = spec->packages; pkg != NULL; pkg = pkg->next)
XPUSHs(sv_2mortal(sv_setref_pv(newSVpv("", 0), bless_header, (void *)headerLink(pkg->header))));
#endif
-
+
void
Spec_srcrpm(spec)
rpmSpec spec