From 521ec86034d0757ba5d6dd37e2a8574dc4671e35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9mence=20Laurent?= <clemence@opensquare.eu>
Date: Tue, 29 Mar 2022 14:48:00 +0200
Subject: [PATCH] repercut correction python sur perl

---
 alSentenceSplitting.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/alSentenceSplitting.pm b/alSentenceSplitting.pm
index 20613d2..adc3ce0 100644
--- a/alSentenceSplitting.pm
+++ b/alSentenceSplitting.pm
@@ -143,7 +143,8 @@ sub altok_split_sentences {
   }
   
   if (/(  - .*){8,}/) { # à partir de 8 (choisi au plus juste), on va considérer qu'on est face à une liste
-    $s =~ s/  - /<\/s>  <s type=\"li\">- /g;
+    #ajout d'un espace en plus entre s et type
+    $s =~ s/  - /<\/s>  <s  type=\"li\">- /g;
   }
   $s =~ s/<s>( *)<\/s>/$1/g;
   $s =~ s/<s[^<>]*>$//;
-- 
GitLab