From 6f90b245a4a3340761db7dea96fe319beaa069fa Mon Sep 17 00:00:00 2001
From: nekobit <nekobit@noemail.net>
Date: Fri, 19 Aug 2022 14:55:03 +0000
Subject: [PATCH] Fix list crash

\n\nNeeds error handling

FossilOrigin-Name: 5a4fe5967a5ccd65e3811aa5d75f3dd75e8a48ed30a90922ae3a2c82a773028f
---
 src/lists.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lists.c b/src/lists.c
index 50503f0..ce24f34 100644
--- a/src/lists.c
+++ b/src/lists.c
@@ -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");