diff --git a/lib/B/C/OverLoad/B/AV.pm b/lib/B/C/OverLoad/B/AV.pm index 3c6c1fcdd..a795a6a78 100644 --- 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.