projects
/
gnulib.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cleanup after gl_FUNC_READLINK, for gl_FUNC_SYMLINK test
[gnulib.git]
/
build-aux
/
announce-gen
diff --git
a/build-aux/announce-gen
b/build-aux/announce-gen
index
d4e289a
..
7d70fd4
100755
(executable)
--- a/
build-aux/announce-gen
+++ b/
build-aux/announce-gen
@@
-1,13
+1,15
@@
-#!/usr/bin/perl -w
+eval '(exit $?0)' && eval 'exec perl -wS "$0" ${1+"$@"}'
+ & eval 'exec perl -wS "$0" $argv:q'
+ if 0;
# Generate a release announcement message.
# Generate a release announcement message.
-my $VERSION = '2009-
09-11 09:50
'; # UTC
+my $VERSION = '2009-
11-20 13:36
'; # 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.
# 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-20
09
Free Software Foundation, Inc.
+# Copyright (C) 2002-20
10
Free Software Foundation, Inc.
# 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
# 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
@@
-33,7
+35,7
@@
use POSIX qw(strftime);
(my $ME = $0) =~ s|.*/||;
(my $ME = $0) =~ s|.*/||;
-my %valid_release_types = map {$_ => 1} qw (alpha beta
major
);
+my %valid_release_types = map {$_ => 1} qw (alpha beta
stable
);
my @archive_suffixes = ('tar.gz', 'tar.bz2', 'tar.lzma', 'tar.xz');
sub usage ($)
my @archive_suffixes = ('tar.gz', 'tar.bz2', 'tar.lzma', 'tar.xz');
sub usage ($)
@@
-440,6
+442,11
@@
EOF
my @sig_files = map { "$_.sig" } @tarballs;
print_locations ("GPG detached signatures[*]", @url_dir_list, %size,
@sig_files);
my @sig_files = map { "$_.sig" } @tarballs;
print_locations ("GPG detached signatures[*]", @url_dir_list, %size,
@sig_files);
+ if ($url_dir_list[0] =~ "gnu\.org")
+ {
+ print "To reduce load on the main server, use a mirror listed at:\n";
+ print " http://www.gnu.org/order/ftp.html\n\n";
+ }
$print_checksums_p
and print_checksums (@sizable);
$print_checksums_p
and print_checksums (@sizable);
@@
-468,7
+475,7
@@
EOF
print_news_deltas ($_, $prev_version, $curr_version)
foreach @news_file;
print_news_deltas ($_, $prev_version, $curr_version)
foreach @news_file;
- $release_type eq '
major
'
+ $release_type eq '
stable
'
or print_changelog_deltas ($package_name, $prev_version);
exit 0;
or print_changelog_deltas ($package_name, $prev_version);
exit 0;
@@
-476,19
+483,15
@@
EOF
### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables:
### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables:
+## mode: perl
## perl-indent-level: 2
## perl-continued-statement-offset: 2
## perl-continued-brace-offset: 0
## perl-brace-offset: 0
## perl-brace-imaginary-offset: 0
## perl-label-offset: -2
## perl-indent-level: 2
## perl-continued-statement-offset: 2
## perl-continued-brace-offset: 0
## perl-brace-offset: 0
## perl-brace-imaginary-offset: 0
## perl-label-offset: -2
-## cperl-indent-level: 2
-## cperl-brace-offset: 0
-## cperl-continued-brace-offset: 0
-## cperl-label-offset: -2
-## cperl-extra-newline-before-brace: t
-## cperl-merge-trailing-else: nil
-## cperl-continued-statement-offset: 2
+## perl-extra-newline-before-brace: t
+## perl-merge-trailing-else: nil
## eval: (add-hook 'write-file-hooks 'time-stamp)
## time-stamp-start: "my $VERSION = '"
## time-stamp-format: "%:y-%02m-%02d %02H:%02M"
## eval: (add-hook 'write-file-hooks 'time-stamp)
## time-stamp-start: "my $VERSION = '"
## time-stamp-format: "%:y-%02m-%02d %02H:%02M"