Init empty arrays using INITAv

atoomic · atoomic · commit 257c1a92568c · 2023-01-06T19:23:40.000-05:00
This is an issue where the EXPORT_FAIL arrays are not initialized properly. Refs: CPANEL-42007 (cherry picked from commit ace2447) Signed-off-by: Nicolas Rochelemagne <rochelemagne@cpanel.net>
diff --git a/lib/B/C/OverLoad/B/AV.pm b/lib/B/C/OverLoad/B/AV.pm
@@ -191,7 +191,7 @@ sub do_save ( $av, $fullname = undef, $cv = undef, $is_backref = 0 ) {
     }
     else {
         my $max = $av->MAX;
-        init()->sadd( "av_extend(%s, %d);", $sym, $max ) if $max > -1;
+        $av->add_to_init( $sym, '', $fill, $fullname ) if $max > -1;
     }
 
     $av->update_sv( $ix, $fullname, { fill => $fill } );    # could be using PADLIST, PADNAMELIST, or AV method for this.

Original file line number	Diff line number	Diff line change
`@@ -191,7 +191,7 @@ sub do_save ( $av, $fullname = undef, $cv = undef, $is_backref = 0 ) {`
`191`	`191`	`}`
`192`	`192`	`else {`
`193`	`193`	`my $max = $av->MAX;`
`194`		`- init()->sadd( "av_extend(%s, %d);", $sym, $max ) if $max > -1;`
	`194`	`+ $av->add_to_init( $sym, '', $fill, $fullname ) if $max > -1;`
`195`	`195`	`}`
`196`	`196`
`197`	`197`	`$av->update_sv( $ix, $fullname, { fill => $fill } ); # could be using PADLIST, PADNAMELIST, or AV method for this.`