Bug #92411 for HTML-FormHandler: memory bug on 5.19.7+

Thread 1 (process 869681): #0 0x00007ffff6f14535 in raise () from /lib64/libc.so.6 No symbol table info available. #1 0x00007ffff6f159b8 in abort () from /lib64/libc.so.6 No symbol table info available. #2 0x00007ffff6f59f3a in __malloc_assert () from /lib64/libc.so.6 No symbol table info available. #3 0x00007ffff6f5ccd5 in _int_malloc () from /lib64/libc.so.6 No symbol table info available. #4 0x00007ffff6f5e974 in calloc () from /lib64/libc.so.6 No symbol table info available. #5 0x000000000042503c in S_new_slab (sz=128) at op.c:146 slab = <optimized out> #6 Perl_Slab_Alloc (sz=12) at op.c:240 slab = 0x8e0c30 slab2 = <optimized out> slot = <optimized out> o = <optimized out> opsz = 10 space = <optimized out> __PRETTY_FUNCTION__ = "Perl_Slab_Alloc" #7 0x000000000042c168 in Perl_newSTATEOP (flags=0, label=0x0, o=0x0) at op.c:5963 seq = 22246 utf8 = 0 cop = <optimized out> __PRETTY_FUNCTION__ = "Perl_newSTATEOP" #8 0x000000000043c015 in Perl_utilize (aver=<optimized out>, floor=168, version=<optimized out>, idop=0x8e1b48, arg=<optimized out>) at op.c:5402 pack = <optimized out> imop = <optimized out> veop = <optimized out> use_version = 0x0 #9 0x0000000000482aa7 in Perl_yyparse (gramtype=gramtype@entry=258) at perly.y:398 yystate = <optimized out> yyn = 34 yyresult = <optimized out> yytoken = 20 parser = 0x22581a0 ps = 0x8df480 yyval = <optimized out> #10 0x000000000054c605 in S_doeval (gimme=gimme@entry=2, outside=outside@entry=0x0, seq=<optimized out>, hh=hh@entry=0x0) at pp_ctl.c:3475 sp = 0x25e76b8 saveop = 0xb4e8c8 clear_hints = <optimized out> oldcurcop = <optimized out> in_require = true yystatus = <optimized out> evalcv = 0x25e6298 __PRETTY_FUNCTION__ = "S_doeval" #11 0x000000000055f1a1 in Perl_pp_require () at pp_ctl.c:4131 sp = 0x25e76b8 cx = <optimized out> sv = <optimized out> name = <optimized out> len = 19 unixname = <optimized out> unixlen = 19 tryname = 0x8e2ba0 "lib/HTML/FormHandler.pm" namesv = <optimized out> gimme = 2 filter_has_file = <optimized out> tryrsfp = 0x8c8e60 filter_cache = <optimized out> filter_state = <optimized out> filter_sub = <optimized out> hook_sv = <optimized out> encoding = 0x0 op = <optimized out> saved_errno = <optimized out> path_searchable = true __PRETTY_FUNCTION__ = "Perl_pp_require" #12 0x00000000004c2dca in Perl_runops_debug () at dump.c:2420 No locals. #13 0x000000000044b7f9 in S_run_body (oldscope=1) at perl.c:2444 No locals. #14 perl_run (my_perl=<optimized out>) at perl.c:2365 oldscope = 1 ret = <optimized out> cur_env = {je_prev = 0x8b6b40 <PL_start_env>, je_buf = {{__jmpbuf = {0, -6199615863609367576, 4336116, 140737488342816, 0, 0, 6199615861954700264, -6199615342113463320}, __mask_was_saved = 0, __saved_mask = {__val = {0, 9182208, 6, 9146264, 1, 13, 148565664, 0, 0, 5267746, 0, 4336116, 6279040, 4793511, 0, 140737353774760}}}}, je_ret = 3, je_mustcatch = false} __PRETTY_FUNCTION__ = "perl_run" #15 0x00000000004229e5 in main (argc=4, argv=0x7fffffffcf28, env=0x7fffffffcf50) at perlmain.c:112 exitstatus = <optimized out> i = <optimized out> quit A debugging session is active. Inferior 1 [process 869681] will be killed. Quit anyway? (y or n)

use strict; use warnings; use Test::More; BEGIN { require HTML::FormHandler::Field::Repeatable; } # test to verify that contains hashref passed in to construction of # a repeatable field is used to build the 'contains' field my $args = { name => 'test_field', init_contains => { wrapper_class => ['hfh', 'repinst'] }, }; my $field = HTML::FormHandler::Field::Repeatable->new( %$args ); $field->contains( # Comment this $field->create_element ) # And this for a double-linked-list corruption ; require HTML::FormHandler; # Move up, earlier, problem will vanish. pass('ok'); done_testing;

use strict; use warnings; use Test::More; BEGIN { require HTML::FormHandler::Field::Repeatable; } # ## test to verify that contains hashref passed in to construction of # a repeatable field is used to build the 'contains' field my $args = { name => 'test_field', init_contains => { wrapper_class => [ 'hfh', 'repinst' ] }, }; my $field = HTML::FormHandler::Field::Repeatable->new(%$args); use Data::Clone qw(clone); $field->contains( clone ( $field ) ); eval "use List::Util"; # fails here pass('ok'); done_testing;