From 9cbbeadd220097da7afc48105d541c2f267bd6cf Mon Sep 17 00:00:00 2001
From: tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Wed, 14 Dec 2011 19:37:08 +0000
Subject: (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
---
 RPM4/src/RPM4.xs | 13 ++++---------
 1 file 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
-- 
cgit v1.2.1