diff --git a/alSentenceSplitting.pm b/alSentenceSplitting.pm index 20613d27709a317ad3a92e551c464714655e227d..adc3ce0df526bceed2d4bce27330f61f590f4202 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[^<>]*>$//;