From: Akim Demaille <akim@epita.fr>
Date: Tue, 30 Sep 2003 13:07:27 +0000 (+0000)
Subject: * config/announce-gen (&print_news_deltas): Extracted from...
X-Git-Tag: AUTOCONF-2.57f~3
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f08e10cb50c35b48c79212f9cf33362a4632b903;p=thirdparty%2Fautoconf.git

* 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 63816c22..3ea84445 100644
--- 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 6ff0e58d..a66e975e 100755
--- 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);