diff --git a/src/base_page.c b/src/base_page.c index 4ef0ed9..379285a 100644 --- a/src/base_page.c +++ b/src/base_page.c @@ -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); diff --git a/src/main.c b/src/main.c index 6df0d1a..fdc1f90 100644 --- a/src/main.c +++ b/src/main.c @@ -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);