From: Jim Meyering <meyering@redhat.com>
Date: Mon, 11 Feb 2008 07:34:27 +0000 (+0100)
Subject: useless-if-before-free: Close stdout carefully.
X-Git-Tag: v0.1~7762
X-Git-Url: http://erislabs.net/gitweb/?a=commitdiff_plain;h=57edc5b234e0bad585bb16efa01cbad309741e38;p=gnulib.git

useless-if-before-free: Close stdout carefully.
---

diff --git a/ChangeLog b/ChangeLog
index 236260db8..b6209a4ab 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-11  Jim Meyering  <meyering@redhat.com>
+
+	* build-aux/useless-if-before-free: Close stdout carefully.
+
 2008-02-10  Bruno Haible  <bruno@clisp.org>
 
 	New module 'git-merge-changelog'.
diff --git a/build-aux/useless-if-before-free b/build-aux/useless-if-before-free
index 1cf4cb03f..a50db667b 100755
--- a/build-aux/useless-if-before-free
+++ b/build-aux/useless-if-before-free
@@ -2,7 +2,7 @@
 # Detect instances of "if (p) free (p);".
 # Likewise for "if (p != NULL) free (p);".  And with braces.
 
-my $VERSION = '2008-02-10 22:17'; # UTC
+my $VERSION = '2008-02-11 07:32'; # 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
@@ -31,6 +31,14 @@ use Getopt::Long;
 
 (my $ME = $0) =~ s|.*/||;
 
+# 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;
+}
+
 sub usage ($)
 {
   my ($exit_code) = @_;