From f1ef5c6fa0237393263e27730f3c1c996fc02600 Mon Sep 17 00:00:00 2001
From: nekobit <nekobit@noemail.net>
Date: Thu, 25 Aug 2022 17:10:37 +0000
Subject: [PATCH] Switch to 1 destruct level

FossilOrigin-Name: 5a8202cbb4c52a74b5467c82b721e15b9c8e109d7e954dc659300fc01c684ff4
---
 src/base_page.c | 2 +-
 src/main.c      | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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);