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

Cleanup chats, cleanup more perl stuff 

FossilOrigin-Name: 01a373542dd5377a14612fe998a346a7356a5197afbe07eed96ffbb1e53ae4d2
This commit is contained in:
nekobit 2022-08-25 00:10:26 +00:00
parent 9efd9f9a9f
commit d68d553759
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/conversations.c
View File

@ -70,7 +70,7 @@ void content_chats(PATH_ARGS)
// Cleanup
mastodont_storage_cleanup(&storage);
// TOOD cleanup chats
mstdnt_cleanup_chats(chats, chats_len);
Safefree(dup);
}
@ -102,10 +102,10 @@ void content_chat_view(PATH_ARGS)
XPUSHs(newRV_noinc((SV*)session_hv));
XPUSHs(newRV_noinc((SV*)template_files));
if (chat_code == 0)
XPUSHs(newRV_noinc((SV*)perlify_chat(&chat)));
mXPUSHs(newRV_noinc((SV*)perlify_chat(&chat)));
else ARG_UNDEFINED();
if (messages)
XPUSHs(newRV_noinc((SV*)perlify_messages(messages, messages_len)));
mXPUSHs(newRV_noinc((SV*)perlify_messages(messages, messages_len)));
else ARG_UNDEFINED();
PERL_STACK_SCALAR_CALL("chat::construct_chat");
@ -125,6 +125,8 @@ void content_chat_view(PATH_ARGS)
mastodont_storage_cleanup(&storage);
mastodont_storage_cleanup(&storage_chat);
mstdnt_cleanup_chats(chats);
mstdnt_cleanup_messages(messages);
Safefree(dup);
}