X-Git-Url: http://erislabs.net/gitweb/?a=blobdiff_plain;f=build-aux%2Fannounce-gen;h=cc087d044797c1dc924eeacacd6dd7bf7b600eb8;hb=fb87bcf5306ddb0f7d8eb1f31837e8dada25b5d2;hp=1f87bc26bfe322c423cb67767ba7531ab43f53bd;hpb=bd9cebc297b4060bec68580eede80e2ad3c7d423;p=gnulib.git
diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index 1f87bc26b..cc087d044 100755
--- a/build-aux/announce-gen
+++ b/build-aux/announce-gen
@@ -1,18 +1,18 @@
#!/usr/bin/perl -w
# Generate a release announcement message.
-my $VERSION = '2006-12-08 17:35'; # UTC
+my $VERSION = '2007-07-22 16:09'; # UTC
# The definition above must lie within the first 8 lines in order
# for the Emacs time-stamp write hook (at end) to update it.
# If you change this file with Emacs, please let the write hook
# do its job. Otherwise, update this string manually.
-# Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
+# Copyright (C) 2002-2007 Free Software Foundation, Inc.
-# This program is free software; you can redistribute it and/or modify
+# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
@@ -20,8 +20,7 @@ my $VERSION = '2006-12-08 17:35'; # UTC
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software Foundation,
-# Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+# along with this program. If not, see .
# Written by Jim Meyering
@@ -96,7 +95,7 @@ The following are optional:
--gnulib-snapshot-date=DATE if gnulib is in the bootstrap tool list,
then report this as the snapshot date.
If not specified, use the current date/time.
- If you specify a date here, be sure it's UTC.
+ If you specify a date here, be sure it is UTC.
--help display this help and exit
--version output version information and exit
@@ -419,7 +418,8 @@ sub get_tool_versions ($$)
or (warn "$ME: `$release_type': invalid release type\n"), $fail = 1;
@ARGV
- and (warn "$ME: too many arguments\n"), $fail = 1;
+ and (warn "$ME: too many arguments:\n", join ("\n", @ARGV), "\n"),
+ $fail = 1;
$fail
and usage 1;
@@ -428,7 +428,11 @@ sub get_tool_versions ($$)
my $tbz = "$my_distdir.tar.bz2";
my $xd = "$package_name-$prev_version-$curr_version.xdelta";
- my %size = sizes ($tgz, $tbz, $xd);
+ my @tarballs = grep {-f $_} ($tgz, $tbz);
+ my @sizable = @tarballs;
+ -f $xd
+ and push @sizable, $xd;
+ my %size = sizes (@sizable);
%size
or exit 1;
@@ -444,14 +448,14 @@ FIXME: put comments here
EOF
- print_locations ("compressed sources", @url_dir_list, %size,
- $tgz, $tbz);
- print_locations ("xdelta-style diffs", @url_dir_list, %size,
- $xd);
+ print_locations ("compressed sources", @url_dir_list, %size, @tarballs);
+ -f $xd
+ and print_locations ("xdelta-style diffs", @url_dir_list, %size, $xd);
+ my @sig_files = map { "$_.sig" } @tarballs;
print_locations ("GPG detached signatures[*]", @url_dir_list, %size,
- "$tgz.sig", "$tbz.sig");
+ @sig_files);
- print_checksums ($tgz, $tbz, $xd);
+ print_checksums (@sizable);
print <