Immortal padlists

cpanel · Jun 10, 2017 · fd61549 · fd61549
1 parent 5d09055
commit fd61549
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/B/C/OverLoad/B/PADLIST.pm b/lib/B/C/OverLoad/B/PADLIST.pm
@@ -11,9 +11,9 @@ sub save_sv {    # id+outid as U32 (PL_padlist_generation++)
 
     my $fill = $av->MAX;
 
-    padlistsect()->comment("xpadl_max, xpadl_alloc, xpadl_id, xpadl_outid");
+    padlistsect()->comment("xpadl_max, xpadl_alloc, immortal, xpadl_id, xpadl_outid");
     my ( $id, $outid ) = ( $av->ID, $av->OUTID );
-    my $padlist_index = padlistsect()->add("$fill, {NULL}, $id, $outid");
+    my $padlist_index = padlistsect()->add("$fill, {NULL}, 1, $id, $outid");
 
     return savesym( $av, "&padlist_list[$padlist_index]" );
 }

diff --git a/rpms/cpanel-perl-524-5.24.1-17bc.debuginfo.cp1162.x86_64.rpm b/rpms/cpanel-perl-524-5.24.1-17bc.debuginfo.cp1162.x86_64.rpm