From: Jim Meyering <jim@meyering.net>
Date: Mon, 24 Nov 2003 09:07:34 +0000 (+0000)
Subject: sync with version from autoconf
X-Git-Tag: v5.1.0~127
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=af6317dab1a75a25ca7e2c9227e885493f306008;p=thirdparty%2Fcoreutils.git

sync with version from autoconf
---

diff --git a/announce-gen b/announce-gen
index b4a93868d3..ae79b0751d 100755
--- a/announce-gen
+++ b/announce-gen
@@ -6,7 +6,7 @@ use Getopt::Long;
 use Digest::MD5;
 use Digest::SHA1;
 
-(my $VERSION = '$Revision: 1.18 $ ') =~ tr/[0-9].//cd;
+(my $VERSION = '$Revision: 1.19 $ ') =~ tr/[0-9].//cd;
 (my $ME = $0) =~ s|.*/||;
 
 my %valid_release_types = map {$_ => 1} qw (alpha beta major);
@@ -206,7 +206,7 @@ sub print_changelog_deltas ($$)
   my $curr_version;
   my $release_archive_dir;
   my @url_dir_list;
-  my $news_file;
+  my @news_file;
 
   GetOptions
     (
@@ -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);