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

Assert on args to padnamelist_dup() before trying to use them

Browse Source
This commit is contained in:
Paul "LeoNerd" Evans 2025-09-26 16:39:47 +01:00
parent fb4d3f55c4
commit 162b6fd168
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pad.c
View File

@ -2744,13 +2744,12 @@ Duplicates a pad name list.
PADNAMELIST *
Perl_padnamelist_dup(pTHX_ PADNAMELIST *srcpad, CLONE_PARAMS *param)
{
PADNAMELIST *dstpad;
SSize_t max = PadnamelistMAX(srcpad);
PERL_ARGS_ASSERT_PADNAMELIST_DUP;
SSize_t max = PadnamelistMAX(srcpad);
/* look for it in the table first */
dstpad = (PADNAMELIST *)ptr_table_fetch(PL_ptr_table, srcpad);
PADNAMELIST *dstpad = (PADNAMELIST *)ptr_table_fetch(PL_ptr_table, srcpad);
if (dstpad)
return dstpad;