Le mardi 26 février 2002, Nicolas Bertolissio écrit :
Bonjour,

Journal des modification :
Description: 
 ddtc       - Perl script to deal with ddts mail
Changes: 
 ddtc (0.3) unstable; urgency=low
 .
   * really deal with changed English descriptions
     thanks to Christian Pierrer for reporting this bug
   * add `--help' option when getting usage message in `bash_completion'
   * change `/' into `_' in package name if no name can be found
   * change maintainer address

La rustine est attachée, les paquets sont à jour :
deb http://nico.bertol.free.fr/debian bertol/fr/  pour votre sources.list
    http://nico.bertol.free.fr/rpm/bertol/        en rpm


Nicolas
-- 
--- ddtc_0.2.1  Sat Feb 23 00:00:00 2002
+++ ddtc_0.3    Sat Mar  2 00:00:00 2002
@@ -7,7 +7,7 @@
 # Constants setting
 #
 
-use constant VERSION   => "0.2.1";                     # script version number
+use constant VERSION   => "0.3";                       # script version number
 use constant MAIL_DDTS => '[EMAIL PROTECTED]'; # ddts address
 
 #
@@ -443,6 +443,7 @@
        } else {
                $name = "noname-$short";
                $name =~ s/(\s)/_/g;
+               $name =~ s/\//_/g;
 
                warning "I can't guess `$short', output file named `$name'\n";
        }
@@ -731,7 +732,7 @@
        if ($translation && (uncomment($review, "^#") ne $translation)) {
                warning "review has not been sent in the script format",
                        "$package skiped";
-               return 0;
+               return;
        }
        if (-e "$Bug_dir/$package.$Fix_e") {
                warning "collision detected, $package.$Fix_e exists,",
@@ -745,13 +746,22 @@
                        "$package skiped";
                return;
        }
-       move_file("$Tr_dir/$package.$Ok_e",   "$Tr_dir/$package.$Sent_e");
-       if ((-e "$Tr_dir/$package.$Sent_e") && 
(get_translation("$Tr_dir/$package.$Sent_e") ne uncomment($translation, "## 
"))) {
-               warning "collision detected, $package.$Sent_e exists,",
-                       "and has a DIFFERENT translation,",
-                       "$package skiped";
-               return;
+       unless ($package =~ /[EMAIL PROTECTED]/) {
+               if      (   (-e "$Tr_dir/$package.$Ok_e")
+                        && (get_translation("$Tr_dir/$package.$Ok_e") ne 
uncomment($translation, "## "))) {
+                       warning "collision detected, $package.$Ok_e exists,",
+                               "and has a DIFFERENT translation,",
+                               "$package skiped";
+                       return;
+               } elsif (   (-e "$Tr_dir/$package.$Sent_e")
+                        && (get_translation("$Tr_dir/$package.$Sent_e") ne 
uncomment($translation, "## "))) {
+                       warning "collision detected, $package.$Sent_e exists,",
+                               "and has a DIFFERENT translation,",
+                               "$package skiped";
+                       return;
+               }
        }
+       move_file("$Tr_dir/$package.$Ok_e",   "$Tr_dir/$package.$Sent_e");
                
        my $i;
        my $l;

Répondre à