Bonjour, Journal des modification : ddts-script (0.4.14) unstable; urgency=low
* fix typo for ppart match due to ddts fix * turn `until' loop into `while' * prevent from using [EMAIL PROTECTED]' sample address thanks to Martin Quinson for reporting these bugs Je ne comprends pas pourquoi la deuxième modification est nécessaire, il me semble que ça fait la même chose, si quelqu'un peut m'expliquer... La rustine est attachée, le paquet complet ici : http://perso.wanadoo.fr/nico.bertol/debian/ddts-script_0.4.14_all.deb.htm Nicolas --
--- ddts-script_0.4.13 Sat Feb 9 00:00:00 2002 +++ ddts-script_0.4.14 Sat Feb 9 00:00:00 2002 @@ -51,9 +51,11 @@ # End of the config part -my $version = "0.4.13"; +my $version = "0.4.14"; # Test if configuration as been made +die "Script unconfigured: email address is [EMAIL PROTECTED]'\n!" if ($mail_addr =~ /[EMAIL PROTECTED]/); + foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) { my @dir=split("/", $_); # get all subdirs for (my $i=1; $i<@dir; $i++) { @@ -473,7 +475,7 @@ $translation = $'; while (<UU>) { next if (/^#\s*$/); # remove empty comments - next if (/^# ppart translation, please check it! It need your help:/); # remove ppart comments + next if (/^# ppart translation, please check it! It needs your help:/); # remove ppart comments last unless /^(##)? /; $translation .= $1 if (defined $1); $translation .= " $'"; @@ -888,7 +890,11 @@ $filename =~ s/^new(\..*)?/new/; # new\..* contains descriptions to translate open FILE, ">$temp_dir/ddts-$filename-$$" || die "Can't create temp file `ddts-$filename-$$': $!"; print FILE "begin-base64 400 $temp_dir/ddts-$filename-$$\n"; - print FILE $_ until (($_=<>) =~ /^$/); + #print FILE $_ until (($_=<>) =~ /^$/); + while (<>) { + last if /^$/; + print FILE $_; + } print FILE "===="; close FILE || die "Can't write temp file `ddts-$filename-$$': $!";