From 04df4d2f80de876d3c37739225c7f47e378cbd33 Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Sat, 22 Aug 2009 10:02:19 +0200
Subject: [PATCH] announce-gen: detect write failure

* build-aux/announce-gen: Add Coda.
---
 ChangeLog              |  5 +++++
 build-aux/announce-gen | 10 +++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 841212e31..958cab432 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-22  Jim Meyering  <meyering@redhat.com>
+
+	announce-gen: detect write failure
+	* build-aux/announce-gen: Add Coda.
+
 2009-08-19  Akim Demaille  <demaille@gostai.com>
 
 	bootstrap: --help to stdout.
diff --git a/build-aux/announce-gen b/build-aux/announce-gen
index e5e749131..ca17a2274 100755
--- 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-05 09:52'; # UTC
+my $VERSION = '2009-08-21 21:46'; # 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
@@ -500,6 +500,14 @@ 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
-- 
2.11.0