From 5f7626f157136bed65df6ef7e44675d27f3d8ef1 Mon Sep 17 00:00:00 2001
From: Aki Goto <tyatsumi@protonmail.ch>
Date: Thu, 22 Sep 2022 13:38:54 +0900
Subject: [PATCH] enable blank line between lists in WikiCreole

---
 modules/creole.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/modules/creole.pl b/modules/creole.pl
index 2aaf039c..bad6494a 100644
--- a/modules/creole.pl
+++ b/modules/creole.pl
@@ -470,8 +470,8 @@ sub CreoleListAndNewLineRule {
   # # numbered list
   # * bullet list (nestable; needs space when nested to disambiguate from bold)
   if (($bol             and m/\G[ \t]*([#*])[ \t]*/cg) or
-      ($is_in_list_item and m/\G[ \t]*\n+[ \t]*(#+)[ \t]*/cg) or
-      ($is_in_list_item and m/\G[ \t]*\n+[ \t]*(\*+)[ \t]+/cg)) {
+      ($is_in_list_item and m/\G[ \t]*\n[ \t]*(#+)[ \t]*/cg) or
+      ($is_in_list_item and m/\G[ \t]*\n[ \t]*(\*+)[ \t]+/cg)) {
     # Note: the first line of this return statement is --not-- equivalent to:
     # "return CloseHtmlEnvironmentUntil('li')", as that line does not permit
     # modules overriding the CloseHtmlEnvironments() function to "have a say."
@@ -482,7 +482,7 @@ sub CreoleListAndNewLineRule {
   # - bullet list (not nestable; always needs space)
   elsif ($CreoleDashStyleUnorderedLists and (
         ($bol and             m/\G[ \t]*(-)[ \t]+/cg) or
-        ($is_in_list_item and m/\G[ \t]*\n+[ \t]*(-)[ \t]+/cg))) {
+        ($is_in_list_item and m/\G[ \t]*\n[ \t]*(-)[ \t]+/cg))) {
     return ($is_in_list_item ? CloseHtmlEnvironmentUntil('li') : CloseHtmlEnvironments())
       .OpenHtmlEnvironment('ul', length($1))
       .AddHtmlEnvironment ('li');