diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2022-04-27 01:33:35 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2022-04-27 02:08:39 +0200 |
| commit | f6d333affb60e5364bf30355869fd359da2317e8 (patch) | |
| tree | 928eedb77b3d0e82609fcfd184eaee99439d3888 /RPM4/src/RPM4.xs | |
| parent | ab1249d6ad5af36cc8bf2e8e7c9051b13943ebd6 (diff) | |
| download | perl-RPM4-f6d333affb60e5364bf30355869fd359da2317e8.tar perl-RPM4-f6d333affb60e5364bf30355869fd359da2317e8.tar.gz perl-RPM4-f6d333affb60e5364bf30355869fd359da2317e8.tar.bz2 perl-RPM4-f6d333affb60e5364bf30355869fd359da2317e8.tar.xz perl-RPM4-f6d333affb60e5364bf30355869fd359da2317e8.zip | |
Prepare for rpm-4.19: switch away from rpmteFI()
Test Te->files btw (which shows it was segfaulting before...)
Diffstat (limited to 'RPM4/src/RPM4.xs')
| -rw-r--r-- | RPM4/src/RPM4.xs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs index 3f252dc..71e23fa 100644 --- a/RPM4/src/RPM4.xs +++ b/RPM4/src/RPM4.xs @@ -1957,15 +1957,19 @@ void Te_files(Te) rpmte Te PREINIT: - rpmfi Files; + rpmfiles Files; + rpmfi fi; PPCODE: - Files = rpmteFI(Te); - if ((Files = rpmfiInit(Files, 0)) != NULL && rpmfiNext(Files) >= 0) { - mXPUSHs(sv_setref_pv(newSVpvs(""), bless_rpmfi, Files)); + Files = rpmteFiles(Te); + fi = rpmfilesIter(Files, RPMFI_ITER_FWD); + if (fi != NULL && rpmfiNext(fi) >= 0) { + mXPUSHs(sv_setref_pv(newSVpvs(""), bless_rpmfi, fi)); #ifdef HDRPMMEM PRINTF_NEW(bless_rpmfi, Files, Files->nrefs); #endif } + rpmfiFree(fi); + rpmfilesFree(Files); MODULE = RPM4 PACKAGE = RPM4 |