diff options
| author | Jim Meyering <jim@meyering.net> | 2003-11-24 09:07:34 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2003-11-24 09:07:34 +0000 |
| commit | af6317dab1a75a25ca7e2c9227e885493f306008 (patch) | |
| tree | fc1df4757ff8da2c1bd4b7cd49b20f724ecafb4a /announce-gen | |
| parent | f330854bee052339e158131852245854f29eaad3 (diff) | |
| download | coreutils-af6317dab1a75a25ca7e2c9227e885493f306008.tar.xz | |
sync with version from autoconf
Diffstat (limited to 'announce-gen')
| -rwxr-xr-x | announce-gen | 9 |
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); |