* config/announce-gen (&print_news_deltas): Extracted from...

(&print_changelog_deltas): here.
(&news_file): Rename as...
(@news_file): this.

diff --git a/ChangeLog b/ChangeLog
index 63816c22adcdb813f7fb38283e31da7f3f6018f7..3ea84445dc1bd4431470ce40c69e69f88f5590df 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-09-30  Akim Demaille  <akim@epita.fr>
+
+       * config/announce-gen (&print_news_deltas): Extracted from...
+       (&print_changelog_deltas): here.
+       (&news_file): Rename as...
+       (@news_file): this.
+
 2003-09-30  Nicolas Joly  <njoly@pasteur.fr>
 
        * lib/autoconf/fortran.m4 (_AC_PROG_FC): Remove files which might

diff --git a/config/announce-gen b/config/announce-gen
index 6ff0e58defeaa7a31ddd0691110a743a4d5ae412..a66e975e75277aa007df47e189e4006fe3fbf737 100755 (executable)
--- a/config/announce-gen
+++ b/config/announce-gen
@@ -210,13 +210,13 @@ sub print_changelog_deltas ($$)
 
   GetOptions
     (
-     'release-type=s' => \$release_type,
-     'package-name=s' => \$package_name,
+     'release-type=s'     => \$release_type,
+     'package-name=s'     => \$package_name,
      'previous-version=s' => \$prev_version,
-     'current-version=s' => \$curr_version,
+     'current-version=s'  => \$curr_version,
      'release-archive-directory=s' => \$release_archive_dir,
-     'url-directory=s' => \@url_dir_list,
-     'news=s@' => \@news_file,
+     'url-directory=s'    => \@url_dir_list,
+     'news=s'             => \@news_file,
 
      help => sub { usage 0 },
      version => sub { print "$ME version $VERSION\n"; exit },
@@ -252,7 +252,7 @@ sub print_changelog_deltas ($$)
 
   my %size;
 
-  foreach my $f (($tgz, $tbz, $xd))
+  foreach my $f ($tgz, $tbz, $xd)
     {
       my $cmd = "du --human $f";
       my $t = `$cmd`;
@@ -334,7 +334,8 @@ EOF
     or die "$ME: $tmp: while writing: $!\n";
   chmod 0400, $tmp;  # ignore failure
 
-  print_news_deltas ($_, $prev_version, $curr_version) foreach @news_file;
+  print_news_deltas ($_, $prev_version, $curr_version)
+    foreach @news_file;
 
   $release_type eq 'major'
     or print_changelog_deltas ($package_name, $prev_version);