From e12be1a84bb56082e862cc8de9f97b414954159e Mon Sep 17 00:00:00 2001 From: nekobit Date: Fri, 26 Aug 2022 01:49:35 +0000 Subject: [PATCH] Fix memleak FossilOrigin-Name: 1d0d189731ac60247707eb08f7bbc422c945916626638e052340c31a23ab4130 --- src/base_page.c | 2 +- src/notifications.c | 4 ++-- src/page_config.c | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/base_page.c b/src/base_page.c index 379285a..c6039fa 100644 --- a/src/base_page.c +++ b/src/base_page.c @@ -73,7 +73,7 @@ void render_base_page(struct base_page* page, FCGX_Request* req, struct session* mXPUSHs(newRV_noinc((SV*)page->session)); else mXPUSHs(newRV_noinc((SV*)perlify_session(ssn))); - XPUSHs(newRV_noinc((SV*)template_files)); + mXPUSHs(newRV_inc((SV*)template_files)); mXPUSHs(newSVpv(page->content, 0)); if (notifs && notifs_len) diff --git a/src/notifications.c b/src/notifications.c index 5be1fe4..2cf923f 100644 --- a/src/notifications.c +++ b/src/notifications.c @@ -59,7 +59,7 @@ void content_notifications(PATH_ARGS) PERL_STACK_INIT; HV* session_hv = perlify_session(ssn); XPUSHs(newRV_noinc((SV*)session_hv)); - XPUSHs(newRV_noinc((SV*)template_files)); + mXPUSHs(newRV_inc((SV*)template_files)); if (notifs) mXPUSHs(newRV_noinc((SV*)perlify_notifications(notifs, notifs_len))); @@ -113,7 +113,7 @@ void content_notifications_compact(PATH_ARGS) PERL_STACK_INIT; HV* session_hv = perlify_session(ssn); mXPUSHs(newRV_noinc((SV*)session_hv)); - XPUSHs(newRV_noinc((SV*)template_files)); + mXPUSHs(newRV_inc((SV*)template_files)); if (notifs) mXPUSHs(newRV_noinc((SV*)perlify_notifications(notifs, notifs_len))); diff --git a/src/page_config.c b/src/page_config.c index 6e35af7..1481bb6 100644 --- a/src/page_config.c +++ b/src/page_config.c @@ -45,7 +45,7 @@ void content_config_general(PATH_ARGS) PERL_STACK_INIT; HV* session_hv = perlify_session(ssn); XPUSHs(newRV_noinc((SV*)session_hv)); - XPUSHs(newRV_noinc((SV*)template_files)); + mXPUSHs(newRV_inc((SV*)template_files)); PERL_STACK_SCALAR_CALL("config::general");