Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tarot
gnulib
Commits
165ed697
Commit
165ed697
authored
Aug 22, 2009
by
Jim Meyering
Browse files
announce-gen: remove now-duplicate code at top
* build-aux/announce-gen: Remove equivalent-but-more-verbose block.
parent
04df4d2f
Changes
2
Hide whitespace changes
Inline
Side-by-side
ChangeLog
View file @
165ed697
2009-08-22 Jim Meyering <meyering@redhat.com>
announce-gen: detect write failure
* build-aux/announce-gen: Add Coda.
* build-aux/announce-gen: Add Coda at end.
Remove equivalent-but-more-verbose block at top.
2009-08-19 Akim Demaille <demaille@gostai.com>
build-aux/announce-gen
View file @
165ed697
#!/usr/bin/perl -w
# Generate a release announcement message.
my
$VERSION
=
'
2009-08-2
1 21:46
';
# UTC
my
$VERSION
=
'
2009-08-2
2 08:05
';
# 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
...
...
@@ -36,31 +36,6 @@ use POSIX qw(strftime);
my
%valid_release_types
=
map
{
$_
=>
1
}
qw (alpha
beta
major
);
my
@archive_suffixes
=
('
tar.gz
',
'
tar.bz2
',
'
tar.lzma
',
'
tar.xz
');
END
{
# Nobody ever checks the status of print()s. That's okay, because
# if any do fail, we're guaranteed to get an indicator when we close()
# the filehandle.
#
# Close stdout now, and if there were no errors, return happy status.
# If stdout has already been closed by the script, though, do nothing.
defined
fileno
STDOUT
or
return
;
close
STDOUT
and
return
;
# Errors closing stdout. Indicate that, and hope stderr is OK.
warn
"
$ME
: closing standard output: $!
\n
";
# Don't be so arrogant as to assume that we're the first END handler
# defined, and thus the last one invoked. There may be others yet
# to come. $? will be passed on to them, and to the final _exit().
#
# If it isn't already an error, make it one (and if it _is_ an error,
# preserve the value: it might be important).
$?
||=
1
;
}
sub
usage
($)
{
my
(
$exit_code
)
=
@_
;
...
...
@@ -500,14 +475,6 @@ EOF
exit
0
;
}
# use File::Coda; # http://meyering.net/code/Coda/
END
{
defined
fileno
STDOUT
or
return
;
close
STDOUT
and
return
;
warn
"
$ME
: failed to close standard output: $!
\n
";
$?
||=
1
;
}
### Setup "GNU" style for perl-mode and cperl-mode.
## Local Variables:
## perl-indent-level: 2
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment