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

Fix Perl_av_store off by one error in key comparison

Browse Source
This commit is contained in:
bbrtj 2025-12-14 20:41:28 +01:00 committed by Karl Williamson
parent f2abec8bfa
commit b6e54476dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
av.c
View File

@ -361,7 +361,7 @@ Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val)
return NULL; return NULL;
} }
if (SvREADONLY(av) && key >= AvFILL(av)) if (SvREADONLY(av) && key > AvFILL(av))
croak_no_modify(); croak_no_modify();
if (!AvREAL(av) && AvREIFY(av)) if (!AvREAL(av) && AvREIFY(av))