announce-gen: remove now-duplicate code at top

* build-aux/announce-gen: Remove equivalent-but-more-verbose block.

diff --git a/ChangeLog b/ChangeLog
index 958cab432ef0cee6ceadb2f5d5331eafaa9acdb2..89993176625a47bb7d40dbe43c532148bc4ae2ee 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,8 @@
 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>
 

diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index ca17a2274e167eb97719468a0643162cf8f7c33f..3aed3ee3f76baf041e7ddc167638ca4836db25dd 100755 (executable)
--- 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-08-21 21:46'; # UTC
+my $VERSION = '2009-08-22 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