Bonjour,

journal des modifications :
version 0.4.10
  - change: bug fix in 0.4.9 comment in changelog
  - bug fix:
    - change: write right short description diff when first description line
      is also changed
      thanks to Michael Wiedmann for reporting this bug

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.4.9.txt       Wed Jan  9 21:32:17 2002
+++ ddts-script_0.4.10.txt      Sat Jan 12 12:00:18 2002
@@ -277,7 +277,7 @@
 
 =cut
 
-my $version = "0.4.9";
+my $version = "0.4.10";
 
 # Test if configuration as been made
 foreach ($tr_dir, $bug_dir, $rev_dir, $temp_dir) {
@@ -971,9 +971,12 @@
                @diff = map  { /^$comment\+/?$':$_     } @diff;
                @diff = map  { /^$comment-/?"# -$'":$_ } @diff;
                $description = "";
-               if ($diff[0] =~ /^# -/) {
-                       $description = "# -Description: $'\n";
-                       shift @diff;
+               if ($diff[0] =~ /^# -/) {                               # short 
desc has been modified
+                       $description = "# -Description: $'\n";          # add 
old short desc
+                       shift @diff;                                    # 
remove it from list
+                       my ($diff)   = grep(/^[^ #]/, @diff);           # get 
new short desc
+                       @diff        = grep(/^[ #]/,  @diff);           # keep 
long desc
+                       unshift (@diff, $diff);                         # add 
short desc
                }
                $description .= "Description: ".join("\n", @diff)."\n";
        } else {

Répondre à