summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Meyering <jim@meyering.net>2003-11-24 09:07:34 +0000
committerJim Meyering <jim@meyering.net>2003-11-24 09:07:34 +0000
commitaf6317dab1a75a25ca7e2c9227e885493f306008 (patch)
treefc1df4757ff8da2c1bd4b7cd49b20f724ecafb4a
parentf330854bee052339e158131852245854f29eaad3 (diff)
downloadcoreutils-af6317dab1a75a25ca7e2c9227e885493f306008.tar.xz
sync with version from autoconf
-rwxr-xr-xannounce-gen9
1 files changed, 5 insertions, 4 deletions
diff --git a/announce-gen b/announce-gen
index b4a93868d..ae79b0751 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);