Switch to 1 destruct level

FossilOrigin-Name: 5a8202cbb4c52a74b5467c82b721e15b9c8e109d7e954dc659300fc01c684ff4
This commit is contained in:
nekobit 2022-08-25 17:10:37 +00:00
parent 0617cdbd87
commit f1ef5c6fa0
2 changed files with 2 additions and 2 deletions

View file

@ -87,7 +87,7 @@ void render_base_page(struct base_page* page, FCGX_Request* req, struct session*
char* dup = PERL_GET_STACK_EXIT;
send_result(req, NULL, "text/html", dup, 0);
mstdnt_cleanup_notifications(notifs, notifs_len);
mastodont_storage_cleanup(&storage);
Safefree(dup);

View file

@ -247,7 +247,7 @@ int main(int argc, char **argv, char **env)
perl_parse(my_perl, xs_init, (sizeof(perl_argv) / sizeof(perl_argv[0])) - 1, perl_argv, (char**)NULL);
PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
PL_perl_destruct_level = 2;
PL_perl_destruct_level = 1;
perl_run(my_perl);
init_template_files(aTHX);