repercut correction python sur perl

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[^<>]*>$//;