perl-RPM4/RPM4, branch master perl module to access and manipulate RPM files 0.47 2023-10-25T11:49:17+00:00 Thierry Vignaud thierry.vignaud@gmail.com 2023-10-25T11:43:53+00:00 09d7fc805548aee503faf74bae5f68c231d20320 






Adapt for rpm-4.19.0 final
2023-10-25T11:49:16+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2023-10-25T11:41:08+00:00

e2720b3147e2be8b5b9627e09de01136df1ab586












CPAN testers: display RPM version
2022-07-18T09:11:15+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-07-18T09:11:15+00:00

508ff2a3fca5f9ad68f95fdc146ea66891336409












0.46
2022-04-29T14:35:01+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T08:00:28+00:00

ff39da19d6fcfe25f346a9593c6485f9cb4a31c5












(Header_string) make it compile again with rpm < 4.19
2022-04-29T13:55:56+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T09:15:10+00:00

be7d98907e35fcb918753255474885f4d4a4fb2f

Technically headerUnload() has been deprecated by headerExport() in
rpm-4.10, but let's keep using the old testedcode path in rpm < 4.18 but
starts using and testing the new code path in 4.18+ before
headerUnload() removal in 4.19





Technically headerUnload() has been deprecated by headerExport() in
rpm-4.10, but let's keep using the old testedcode path in rpm < 4.18 but
starts using and testing the new code path in 4.18+ before
headerUnload() removal in 4.19







Skip failing test Te->files on mga[2-7]
2022-04-29T13:55:55+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T10:56:22+00:00

4de9e157f8b9f030e087146085b4543819b07b67

We added the test in commit f6d333affb60e5364bf30355869fd359da2317e8
when switching to the new API.

But sadly this new test fails on older mga releases.
Eg Te->files segfaults on mga3 with rpm-4.11.0.1:

Stack trace when testing Te->files in RPM-0.45+:

ok 32 - Running transaction justdb
ok 33 - Running traverse on transaction
ok 34 - Can find header in transaction
*** Error in `/usr/bin/perl': free(): invalid next size (fast): 0x0000000000f9a1b0 ***

Program received signal SIGSEGV, Segmentation fault.
0x00007ffff69932fb in malloc_consolidate () from /lib64/libc.so.6
(gdb) bt
 #0  0x00007ffff69932fb in malloc_consolidate () from /lib64/libc.so.6
 #1  0x00007ffff699442d in _int_malloc () from /lib64/libc.so.6
 #2  0x00007ffff699712d in calloc () from /lib64/libc.so.6
 #3  0x00007ffff7de830f in _dl_new_object () from /lib64/ld-linux-x86-64.so.2
 #4  0x00007ffff7de3fdc in _dl_map_object_from_fd () from /lib64/ld-linux-x86-64.so.2
 #5  0x00007ffff7de5c2b in _dl_map_object () from /lib64/ld-linux-x86-64.so.2
 #6  0x00007ffff7df01fc in dl_open_worker () from /lib64/ld-linux-x86-64.so.2
 #7  0x00007ffff7dec526 in _dl_catch_error () from /lib64/ld-linux-x86-64.so.2
 #8  0x00007ffff7defd39 in _dl_open () from /lib64/ld-linux-x86-64.so.2
 #9  0x00007ffff6a42202 in do_dlopen () from /lib64/libc.so.6
 #10 0x00007ffff7dec526 in _dl_catch_error () from /lib64/ld-linux-x86-64.so.2
 #11 0x00007ffff6a422c4 in __libc_dlopen_mode () from /lib64/libc.so.6
 #12 0x00007ffff6a1c4e5 in init () from /lib64/libc.so.6
 #13 0x00007ffff6cd89f0 in pthread_once () from /lib64/libpthread.so.0
 #14 0x00007ffff6a1c604 in backtrace () from /lib64/libc.so.6
 #15 0x00007ffff698cea5 in __libc_message () from /lib64/libc.so.6
 #16 0x00007ffff6993e66 in _int_free () from /lib64/libc.so.6
 #17 0x00007ffff54354a9 in rfree () from /lib/../lib64/librpmio.so.3
 #18 0x00007ffff56880e9 in rpmfiFree () from /lib/../lib64/librpm.so.3
 #19 0x00007ffff56829de in rpmalFree () from /lib/../lib64/librpm.so.3
 #20 0x00007ffff5691a99 in rpmtsClean () from /lib/../lib64/librpm.so.3
 #21 0x00007ffff5691aec in rpmtsEmpty () from /lib/../lib64/librpm.so.3
 #22 0x00007ffff5691b85 in rpmtsFree () from /lib/../lib64/librpm.so.3
 #23 0x00007ffff58bd910 in XS_RPM4__Transaction_DESTROY (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1424
 #24 0x00007ffff7b11a22 in Perl_pp_entersub () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #25 0x00007ffff7a9fc69 in Perl_call_sv () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #26 0x00007ffff7b1ae6b in S_curse () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #27 0x00007ffff7b1b808 in Perl_sv_clear () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #28 0x00007ffff7b1bbe2 in Perl_sv_free2 () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #29 0x00007ffff7b3eea0 in Perl_free_tmps () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #30 0x00007ffff7b0a835 in Perl_pp_nextstate () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #31 0x00007ffff7b0a196 in Perl_runops_standard () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #32 0x00007ffff7aa5b45 in perl_run () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #33 0x0000000000400f09 in main ()

Stack trace when testing Te->files in RPM-0.44:

Program received signal SIGABRT, Aborted.
0x00007ffff694d6e5 in raise () from /lib64/libc.so.6
(gdb) bt
 #0  0x00007ffff694d6e5 in raise () from /lib64/libc.so.6
 #1  0x00007ffff694ed48 in abort () from /lib64/libc.so.6
 #2  0x00007ffff698ce8b in __libc_message () from /lib64/libc.so.6
 #3  0x00007ffff6993e66 in _int_free () from /lib64/libc.so.6
 #4  0x00007ffff54354a9 in rfree () from /lib/../lib64/librpmio.so.3
 #5  0x00007ffff5688062 in rpmfiFree () from /lib/../lib64/librpm.so.3
 #6  0x00007ffff56829de in rpmalFree () from /lib/../lib64/librpm.so.3
 #7  0x00007ffff5691a99 in rpmtsClean () from /lib/../lib64/librpm.so.3
 #8  0x00007ffff5691aec in rpmtsEmpty () from /lib/../lib64/librpm.so.3
 #9  0x00007ffff5691b85 in rpmtsFree () from /lib/../lib64/librpm.so.3
 #10 0x00007ffff58bd910 in XS_RPM4__Transaction_DESTROY (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1424
 #11 0x00007ffff7b11a22 in Perl_pp_entersub () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #12 0x00007ffff7a9fc69 in Perl_call_sv () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #13 0x00007ffff7b1ae6b in S_curse () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #14 0x00007ffff7b1b808 in Perl_sv_clear () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #15 0x00007ffff7b1bbe2 in Perl_sv_free2 () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #16 0x00007ffff7b3eea0 in Perl_free_tmps () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #17 0x00007ffff7b0a835 in Perl_pp_nextstate () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #18 0x00007ffff7b0a196 in Perl_runops_standard () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #19 0x00007ffff7aa5b45 in perl_run () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #20 0x0000000000400f09 in main ()





We added the test in commit f6d333affb60e5364bf30355869fd359da2317e8
when switching to the new API.

But sadly this new test fails on older mga releases.
Eg Te->files segfaults on mga3 with rpm-4.11.0.1:

Stack trace when testing Te->files in RPM-0.45+:

ok 32 - Running transaction justdb
ok 33 - Running traverse on transaction
ok 34 - Can find header in transaction
*** Error in `/usr/bin/perl': free(): invalid next size (fast): 0x0000000000f9a1b0 ***

Program received signal SIGSEGV, Segmentation fault.
0x00007ffff69932fb in malloc_consolidate () from /lib64/libc.so.6
(gdb) bt
 #0  0x00007ffff69932fb in malloc_consolidate () from /lib64/libc.so.6
 #1  0x00007ffff699442d in _int_malloc () from /lib64/libc.so.6
 #2  0x00007ffff699712d in calloc () from /lib64/libc.so.6
 #3  0x00007ffff7de830f in _dl_new_object () from /lib64/ld-linux-x86-64.so.2
 #4  0x00007ffff7de3fdc in _dl_map_object_from_fd () from /lib64/ld-linux-x86-64.so.2
 #5  0x00007ffff7de5c2b in _dl_map_object () from /lib64/ld-linux-x86-64.so.2
 #6  0x00007ffff7df01fc in dl_open_worker () from /lib64/ld-linux-x86-64.so.2
 #7  0x00007ffff7dec526 in _dl_catch_error () from /lib64/ld-linux-x86-64.so.2
 #8  0x00007ffff7defd39 in _dl_open () from /lib64/ld-linux-x86-64.so.2
 #9  0x00007ffff6a42202 in do_dlopen () from /lib64/libc.so.6
 #10 0x00007ffff7dec526 in _dl_catch_error () from /lib64/ld-linux-x86-64.so.2
 #11 0x00007ffff6a422c4 in __libc_dlopen_mode () from /lib64/libc.so.6
 #12 0x00007ffff6a1c4e5 in init () from /lib64/libc.so.6
 #13 0x00007ffff6cd89f0 in pthread_once () from /lib64/libpthread.so.0
 #14 0x00007ffff6a1c604 in backtrace () from /lib64/libc.so.6
 #15 0x00007ffff698cea5 in __libc_message () from /lib64/libc.so.6
 #16 0x00007ffff6993e66 in _int_free () from /lib64/libc.so.6
 #17 0x00007ffff54354a9 in rfree () from /lib/../lib64/librpmio.so.3
 #18 0x00007ffff56880e9 in rpmfiFree () from /lib/../lib64/librpm.so.3
 #19 0x00007ffff56829de in rpmalFree () from /lib/../lib64/librpm.so.3
 #20 0x00007ffff5691a99 in rpmtsClean () from /lib/../lib64/librpm.so.3
 #21 0x00007ffff5691aec in rpmtsEmpty () from /lib/../lib64/librpm.so.3
 #22 0x00007ffff5691b85 in rpmtsFree () from /lib/../lib64/librpm.so.3
 #23 0x00007ffff58bd910 in XS_RPM4__Transaction_DESTROY (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1424
 #24 0x00007ffff7b11a22 in Perl_pp_entersub () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #25 0x00007ffff7a9fc69 in Perl_call_sv () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #26 0x00007ffff7b1ae6b in S_curse () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #27 0x00007ffff7b1b808 in Perl_sv_clear () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #28 0x00007ffff7b1bbe2 in Perl_sv_free2 () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #29 0x00007ffff7b3eea0 in Perl_free_tmps () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #30 0x00007ffff7b0a835 in Perl_pp_nextstate () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #31 0x00007ffff7b0a196 in Perl_runops_standard () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #32 0x00007ffff7aa5b45 in perl_run () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #33 0x0000000000400f09 in main ()

Stack trace when testing Te->files in RPM-0.44:

Program received signal SIGABRT, Aborted.
0x00007ffff694d6e5 in raise () from /lib64/libc.so.6
(gdb) bt
 #0  0x00007ffff694d6e5 in raise () from /lib64/libc.so.6
 #1  0x00007ffff694ed48 in abort () from /lib64/libc.so.6
 #2  0x00007ffff698ce8b in __libc_message () from /lib64/libc.so.6
 #3  0x00007ffff6993e66 in _int_free () from /lib64/libc.so.6
 #4  0x00007ffff54354a9 in rfree () from /lib/../lib64/librpmio.so.3
 #5  0x00007ffff5688062 in rpmfiFree () from /lib/../lib64/librpm.so.3
 #6  0x00007ffff56829de in rpmalFree () from /lib/../lib64/librpm.so.3
 #7  0x00007ffff5691a99 in rpmtsClean () from /lib/../lib64/librpm.so.3
 #8  0x00007ffff5691aec in rpmtsEmpty () from /lib/../lib64/librpm.so.3
 #9  0x00007ffff5691b85 in rpmtsFree () from /lib/../lib64/librpm.so.3
 #10 0x00007ffff58bd910 in XS_RPM4__Transaction_DESTROY (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1424
 #11 0x00007ffff7b11a22 in Perl_pp_entersub () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #12 0x00007ffff7a9fc69 in Perl_call_sv () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #13 0x00007ffff7b1ae6b in S_curse () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #14 0x00007ffff7b1b808 in Perl_sv_clear () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #15 0x00007ffff7b1bbe2 in Perl_sv_free2 () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #16 0x00007ffff7b3eea0 in Perl_free_tmps () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #17 0x00007ffff7b0a835 in Perl_pp_nextstate () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #18 0x00007ffff7b0a196 in Perl_runops_standard () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #19 0x00007ffff7aa5b45 in perl_run () from /usr/lib/perl5/5.16.3/x86_64-linux-thread-multi/CORE/libperl.so
 #20 0x0000000000400f09 in main ()







(Te_files) make it compile again with rpm < 4.12
2022-04-29T11:15:14+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T09:04:38+00:00

1bc61ee3959a47013be5b12a902e4ba575fa2aaa

Technically the old code would compile up to 4.18 but:
- rpmteFI() has been obsoleted in 4.12
- it segfaults (see next commit) whereas new code path works in 4.18





Technically the old code would compile up to 4.18 but:
- rpmteFI() has been obsoleted in 4.12
- it segfaults (see next commit) whereas new code path works in 4.18







Skip a failing test on known broken rpms
2022-04-29T11:15:09+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T08:00:20+00:00

94eed1e1b4bc848d7646b60dc8d425d7ee30c052

It was recently re-enabled in commit e2c45e167796ffb6d6d5c21e0fadfec82d2d4ebf
It worked fine on mga9 but it makes several freebsd & mga[3-7] to choke
on that test
perl: rpmal.c:293: rpmalAdd: Assertion `dspool == ((void *)0) || dspool == al->pool' failed.

That assertion was removed in later rpms

The stack trace is:
 Program received signal SIGABRT, Aborted.
 0x00007ffff7b21a7a in raise () from /lib64/libc.so.6
 (gdb) bt
 #0  0x00007ffff7b21a7a in raise () from /lib64/libc.so.6
 #1  0x00007ffff7b0a524 in abort () from /lib64/libc.so.6
 #2  0x00007ffff7b0a40f in __assert_fail_base.cold.0 () from /lib64/libc.so.6
 #3  0x00007ffff7b169a2 in __assert_fail () from /lib64/libc.so.6
 #4  0x00007ffff788b682 in rpmalAdd () from /lib/../lib64/librpm.so.8
 #5  0x00007ffff787c74b in rpmtsCreateAl () from /lib/../lib64/librpm.so.8
 #6  0x00007ffff787d99f in rpmtsOrder () from /lib/../lib64/librpm.so.8
 #7  0x00007ffff78ddde8 in XS_RPM4__Transaction_transorder (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1718
 #8  0x00007ffff7da1b21 in Perl_pp_entersub () from /lib64/libperl.so.5.28
 #9  0x00007ffff7d97e16 in Perl_runops_standard () from /lib64/libperl.so.5.28
 #10 0x00007ffff7d15a17 in perl_run () from /lib64/libperl.so.5.28
 #11 0x000000000040125a in main ()





It was recently re-enabled in commit e2c45e167796ffb6d6d5c21e0fadfec82d2d4ebf
It worked fine on mga9 but it makes several freebsd & mga[3-7] to choke
on that test
perl: rpmal.c:293: rpmalAdd: Assertion `dspool == ((void *)0) || dspool == al->pool' failed.

That assertion was removed in later rpms

The stack trace is:
 Program received signal SIGABRT, Aborted.
 0x00007ffff7b21a7a in raise () from /lib64/libc.so.6
 (gdb) bt
 #0  0x00007ffff7b21a7a in raise () from /lib64/libc.so.6
 #1  0x00007ffff7b0a524 in abort () from /lib64/libc.so.6
 #2  0x00007ffff7b0a40f in __assert_fail_base.cold.0 () from /lib64/libc.so.6
 #3  0x00007ffff7b169a2 in __assert_fail () from /lib64/libc.so.6
 #4  0x00007ffff788b682 in rpmalAdd () from /lib/../lib64/librpm.so.8
 #5  0x00007ffff787c74b in rpmtsCreateAl () from /lib/../lib64/librpm.so.8
 #6  0x00007ffff787d99f in rpmtsOrder () from /lib/../lib64/librpm.so.8
 #7  0x00007ffff78ddde8 in XS_RPM4__Transaction_transorder (my_perl=<optimized out>, cv=<optimized out>) at RPM4.xs:1718
 #8  0x00007ffff7da1b21 in Perl_pp_entersub () from /lib64/libperl.so.5.28
 #9  0x00007ffff7d97e16 in Perl_runops_standard () from /lib64/libperl.so.5.28
 #10 0x00007ffff7d15a17 in perl_run () from /lib64/libperl.so.5.28
 #11 0x000000000040125a in main ()







Show rpm version in cflags in order to have more data from cpan testers
2022-04-29T08:44:48+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T08:20:04+00:00

530c37ba0a008147ca471921cc69b058e4b8a12b












Fix segfault
2022-04-29T00:54:49+00:00

Thierry Vignaud
thierry.vignaud@gmail.com

2022-04-29T00:20:29+00:00

45a5a10092da7f2f0966505c816a3c0660306364

We cannot free an rpmfi object we just wrapped into a SV
Bug introduced in commit f6d333affb60e5364bf30355869fd359da2317e8





We cannot free an rpmfi object we just wrapped into a SV
Bug introduced in commit f6d333affb60e5364bf30355869fd359da2317e8