ddts-script_0.4.14.deb
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 `me@my.isp.org' 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 `me\@my.isp.org'\n!" if ($mail_addr =~ /me\@my.isp.org/);
+
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-$$': $!";
Reply to: