Ensure that even `autoscan --version' fails when e.g.,

writing to a full disk.

(END): New function.

diff --git a/autoscan.in b/autoscan.in
index 137e882916297eedfeef09a15a13ae3e854a2459..cc80401f32d4e4fa84b94e0784dadd8c5dc17fea 100644 (file)
--- a/autoscan.in
+++ b/autoscan.in
@@ -53,6 +53,17 @@ my %generic_macro =
 
 my $configure_scan = 'configure.scan';
 
+
+# Exit nonzero whenever closing STDOUT fails.
+sub END
+{
+  use POSIX qw (_exit);
+  # This is required if the code might send any output to stdout
+  # E.g., even --version or --help.  So it's best to do it unconditionally.
+  close STDOUT
+    or (warn "$me: closing standard output: $!\n"), _exit (1);
+}
+
 # find_autoconf
 # -------------
 # Find the lib files and autoconf.

diff --git a/autoscan.pl b/autoscan.pl
index 137e882916297eedfeef09a15a13ae3e854a2459..cc80401f32d4e4fa84b94e0784dadd8c5dc17fea 100644 (file)
--- a/autoscan.pl
+++ b/autoscan.pl
@@ -53,6 +53,17 @@ my %generic_macro =
 
 my $configure_scan = 'configure.scan';
 
+
+# Exit nonzero whenever closing STDOUT fails.
+sub END
+{
+  use POSIX qw (_exit);
+  # This is required if the code might send any output to stdout
+  # E.g., even --version or --help.  So it's best to do it unconditionally.
+  close STDOUT
+    or (warn "$me: closing standard output: $!\n"), _exit (1);
+}
+
 # find_autoconf
 # -------------
 # Find the lib files and autoconf.

diff --git a/bin/autoscan.in b/bin/autoscan.in
index 137e882916297eedfeef09a15a13ae3e854a2459..cc80401f32d4e4fa84b94e0784dadd8c5dc17fea 100644 (file)
--- a/bin/autoscan.in
+++ b/bin/autoscan.in
@@ -53,6 +53,17 @@ my %generic_macro =
 
 my $configure_scan = 'configure.scan';
 
+
+# Exit nonzero whenever closing STDOUT fails.
+sub END
+{
+  use POSIX qw (_exit);
+  # This is required if the code might send any output to stdout
+  # E.g., even --version or --help.  So it's best to do it unconditionally.
+  close STDOUT
+    or (warn "$me: closing standard output: $!\n"), _exit (1);
+}
+
 # find_autoconf
 # -------------
 # Find the lib files and autoconf.