diff options
| author | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-06-12 17:37:28 +0000 |
|---|---|---|
| committer | tv <tv@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2012-06-12 17:37:28 +0000 |
| commit | d8c3dce84743613a5c6634a1d8637984d5bb9f78 (patch) | |
| tree | d139e5f006b3a7ba234227d071b4eb8c323edb30 | |
| parent | ef9ea1f996f15b1ded862eb2d7f149f8cc346c36 (diff) | |
| download | perl-RPM4-d8c3dce84743613a5c6634a1d8637984d5bb9f78.tar perl-RPM4-d8c3dce84743613a5c6634a1d8637984d5bb9f78.tar.gz perl-RPM4-d8c3dce84743613a5c6634a1d8637984d5bb9f78.tar.bz2 perl-RPM4-d8c3dce84743613a5c6634a1d8637984d5bb9f78.tar.xz perl-RPM4-d8c3dce84743613a5c6634a1d8637984d5bb9f78.zip | |
(listtag) do not use deprecated pre-rpm-4.6.0 function: headerNextIterator -> headerNext
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@191 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/src/RPM4.xs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index f5fa289..768468d 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -1080,12 +1080,14 @@ Header_listtag(h) Header h PREINIT: HeaderIterator iterator; - int tag; + struct rpmtd_s td; PPCODE: iterator = headerInitIterator(h); - while (headerNextIterator(iterator, &tag, NULL, NULL, NULL)) { - XPUSHs(sv_2mortal(newSViv(tag))); + while (headerNext(iterator, &td)) { + XPUSHs(sv_2mortal(newSViv(td.tag))); + rpmtdFreeData(&td); } + rpmtdFreeData(&td); headerFreeIterator(iterator); int |