diff options
author | Jim Meyering <jim@meyering.net> | 2003-03-14 09:44:59 +0000 |
---|---|---|
committer | Jim Meyering <jim@meyering.net> | 2003-03-14 09:44:59 +0000 |
commit | b1064596b4a3ff1a969522e87dccc88f611408d5 (patch) | |
tree | e873882875f78e4c6a71c401ab7ac46b833b7e0a | |
parent | 5b50817cd51393ba1600bbd91de541a1bb0914d3 (diff) | |
download | coreutils-b1064596b4a3ff1a969522e87dccc88f611408d5.tar.xz |
(main): Label the compressed source URLs.
-rwxr-xr-x | announce-gen | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/announce-gen b/announce-gen index b08d3a2b9..834d33a66 100755 --- a/announce-gen +++ b/announce-gen @@ -6,7 +6,7 @@ use Getopt::Long; use Digest::MD5; use Digest::SHA1; -(my $VERSION = '$Revision: 1.11 $ ') =~ tr/[0-9].//cd; +(my $VERSION = '$Revision: 1.12 $ ') =~ tr/[0-9].//cd; (my $ME = $0) =~ s|.*/||; my %valid_release_types = map {$_ => 1} qw (alpha beta major); @@ -117,7 +117,7 @@ sub print_changelog_deltas ($$) # Remove leading `./'. @reordered = map { s!^\./!!; $_ } @reordered; - print "ChangeLog entries:\n"; + print "ChangeLog entries:\n\n"; # print join ("\n", @reordered), "\n"; $prev_version =~ s/\./_/g; @@ -232,6 +232,7 @@ FIXME: put comments here EOF + print "Here are the compressed sources:\n"; foreach my $url (@url_dir_list) { print " $url/$tgz ($size{$tgz})\n"; |