Fix list crash

\n\nNeeds error handling

FossilOrigin-Name: 5a4fe5967a5ccd65e3811aa5d75f3dd75e8a48ed30a90922ae3a2c82a773028f
This commit is contained in:
nekobit 2022-08-19 14:55:03 +00:00
parent c33d7174f1
commit 6f90b245a4
1 changed files with 2 additions and 1 deletions

View File

@ -59,7 +59,8 @@ void content_lists(PATH_ARGS)
HV* session_hv = perlify_session(ssn);
XPUSHs(newRV_noinc((SV*)session_hv));
XPUSHs(newRV_noinc((SV*)template_files));
XPUSHs(newRV_noinc((SV*)perlify_lists(lists, lists_len)));
if (lists)
XPUSHs(newRV_noinc((SV*)perlify_lists(lists, lists_len)));
PERL_STACK_SCALAR_CALL("lists::content_lists");