Mercurial > hg > octave-lyh > gnulib-hg
changeset 11265:abf535c3fafd
Specify archive suffixes to announce-gen (the --archive-suffix option)
author | Sergey Poznyakoff <gray@gnu.org.ua> |
---|---|
date | Thu, 05 Mar 2009 18:19:28 +0200 |
parents | d492cd602d92 |
children | 98bcf3f48aa7 |
files | build-aux/announce-gen |
diffstat | 1 files changed, 9 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/build-aux/announce-gen +++ b/build-aux/announce-gen @@ -1,7 +1,7 @@ #!/usr/bin/perl -w # Generate a release announcement message. -my $VERSION = '2009-03-02 07:45'; # UTC +my $VERSION = '2009-03-05 09:52'; # 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 @@ -34,6 +34,7 @@ (my $ME = $0) =~ s|.*/||; my %valid_release_types = map {$_ => 1} qw (alpha beta major); +my @archive_suffixes = ('tar.gz', 'tar.bz2', 'tar.lzma', 'tar.xz'); END { @@ -97,6 +98,7 @@ in the gnulib source directory. required if gnulib is in TOOL_LIST. --no-print-checksums do not emit MD5 or SHA1 checksums + --archive-suffix=SUF add SUF to the list of archive suffixes --help display this help and exit --version output version information and exit @@ -391,6 +393,7 @@ 'bootstrap-tools=s' => \$bootstrap_tools, 'gnulib-version=s' => \$gnulib_version, 'print-checksums!' => \$print_checksums_p, + 'archive-suffix=s' => \@archive_suffixes, help => sub { usage 0 }, version => sub { print "$ME version $VERSION\n"; exit }, @@ -428,16 +431,14 @@ and usage 1; my $my_distdir = "$package_name-$curr_version"; - my $tgz = "$my_distdir.tar.gz"; - my $tbz = "$my_distdir.tar.bz2"; - my $lzma = "$my_distdir.tar.lzma"; - my $xz = "$my_distdir.tar.xz"; my $xd = "$package_name-$prev_version-$curr_version.xdelta"; - my @tarballs = grep {-f $_} ($tgz, $tbz, $lzma, $xz); + my @candidates = map { "$my_distdir.$_" } @archive_suffixes; + my @tarballs = grep {-f $_} @candidates; + @tarballs - or die "$ME: none of $tgz, $tbz, $lzma or $xz were found\n"; + or die "$ME: none of " . join(', ', @candidates) . " were found\n"; my @sizable = @tarballs; -f $xd and push @sizable, $xd; @@ -475,7 +476,7 @@ be sure to download both the .sig file and the corresponding tarball. Then, run a command like this: - gpg --verify $tgz.sig + gpg --verify $tarballs[0].sig If that command fails because you don't have the required public key, then run this command to import it: