diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:08 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2011-12-14 19:37:08 +0000 |
| commit | 9cbbeadd220097da7afc48105d541c2f267bd6cf (patch) | |
| tree | 0c00d76ab6642737d3ec97da6f33432b4502a04a /RPM4 | |
| parent | c7e5bc027ba3ca22a60f3d2e4d2ec2523122c15a (diff) | |
| download | perl-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.xs | 13 |
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 |