mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

av_extend_guts: set correct ary_offset when unshifting an array (GH#18667)

Browse Source
This commit is contained in:
Richard Leach 2021-04-02 23:51:45 +01:00 committed by Hugo van der Sanden
parent d23c9e49d1
commit ce9f3c9c00
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
av.c
View File

@ -110,6 +110,7 @@ Perl_av_extend_guts(pTHX_ AV *av, SSize_t key, SSize_t *maxp, SV ***allocp,
if (av && *allocp != *arrayp) { /* a shifted SV* array exists */
to_null = *arrayp - *allocp;
*maxp += to_null;
ary_offset = AvFILLp(av) + 1;
Move(*arrayp, *allocp, AvFILLp(av)+1, SV*);

6
t/op/splice.t
View File

@ -108,4 +108,10 @@ is sprintf("%s", splice @a, 0, 1, undef), "",
"croak when splicing into readonly array";
}
# GH#18667 - av_extend_guts must zero duplicate SV*s
fresh_perl_is('my @data = (undef) x 4; splice @data, 1, 1;
splice @data, 2, 1; $data[3] = undef; splice @data, 3, 1;',
'', {}, 'GH#18667 - av_extend_guts must zero duplicate SV*s');
done_testing;