Bonjour,
Certaines ligne « Description-fr: » peuvent être générées avec un espace
en tête, ce qui est une erreur, je ne sais pas pourquoi cela arrive,
mais voici une rustine pour corriger ce problème. (Cela introduit un
nouveau bogue, les lignes commençant par un espace « Description: »
« Description-XX: » ou « Description-XX_xx: » verront leur espace
supprimé même si elle sont à l'intérieur d'une description (cela a peu
de chance de se produire mais c'est quand même un bogue).
Merci à Christian Pierrer pour avoir rapporté ce bogue.
La rustine est attachée, le script complet n'a pas bougé :
http://perso.wanadoo.fr/nico.bertol/ddts/ddts-script.txt
Nicolas
--
--- ddts-script_0.1.6.txt Sat Nov 24 12:29:50 2001
+++ ddts-script_0.1.7.txt Sat Nov 24 23:05:40 2001
@@ -208,7 +208,7 @@
=cut
-my $version = "0.1.6";
+my $version = "0.1.7";
# Test if configuration as been made
if (! -d $tr_dir) {
@@ -961,6 +961,7 @@
my @data = split("\n", &get_all("$bug_dir/$file.$fix_e"));
@data = grep (/^[^($comment)]/, @data);
@data = map { /\+$c(--|[a-z]\+)/?$_=$':$_ } @data;
+ @data = map {
/^\s*(Description(-[a-z][a-z](_[A-Z][A-Z])?)?:)/?$_=$1.$':$_ } @data; # FIXME
some Description-XX lines have a heading space
&move_file ("$tr_dir/$file.$tr_e", "$tr_dir/$file.$old_e");
&move_file ("$bug_dir/$file.$fix_e",
"$bug_dir/$file.$fix_e.$old_e");
