mirrors
/
treebird
0
0
Fork 1
Code Issues Pull Requests Projects Releases Wiki Activity

Fix memleak 

FossilOrigin-Name: 1d0d189731ac60247707eb08f7bbc422c945916626638e052340c31a23ab4130
This commit is contained in:
nekobit 2022-08-26 01:49:35 +00:00
parent f1ef5c6fa0
commit e12be1a84b
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/base_page.c
View File

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

4
src/notifications.c
View File

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

2
src/page_config.c
View File

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