Init empty arrays using INITAv

atoomic · atoomic · commit ace2447249a0 · 2023-01-06T19:22:29.000-05:00
This is an issue where the EXPORT_FAIL arrays
are not initialized properly.

Refs: CPANEL-42007
diff --git a/lib/B/C/OverLoad/B/AV.pm b/lib/B/C/OverLoad/B/AV.pm
@@ -194,7 +194,7 @@ sub do_save {
     }
     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
`@@ -194,7 +194,7 @@ sub do_save {`
`194`	`194`	`}`
`195`	`195`	`else {`
`196`	`196`	`my $max = $av->MAX;`
`197`		`- init()->sadd( "av_extend(%s, %d);", $sym, $max ) if $max > -1;`
	`197`	`+ $av->add_to_init( $sym, '', $fill, $fullname ) if $max > -1;`
`198`	`198`	`}`
`199`	`199`
`200`	`200`	`$av->update_sv( $ix, $fullname, { fill => $fill } ); # could be using PADLIST, PADNAMELIST, or AV method for this.`