Much simpler sure-flush on dirty exit ( ribasushi-- # overcomplicating )

diff --git a/AUTHORS b/AUTHORS
index 086b0e0..264ee55 100644 (file)
--- a/AUTHORS
+++ b/AUTHORS
@@ -19,6 +19,7 @@ acca: Alexander Kuznetsov <acca@cpan.org>
 aherzog: Adam Herzog <adam@herzogdesigns.com>
 Alexander Keusch <cpan@keusch.at>
 alexrj: Alessandro Ranellucci <aar@cpan.org>
+alh: Matthew Horsfall <wolfsage@gmail.com>
 alnewkirk: Al Newkirk <github@alnewkirk.com>
 Altreus: Alastair McGowan-Douglas <alastair.mcgowan@opusvl.com>
 amiri: Amiri Barksdale <amiribarksdale@gmail.com>

diff --git a/t/lib/ANFANG.pm b/t/lib/ANFANG.pm
index bdae983..05304bf 100644 (file)
--- a/t/lib/ANFANG.pm
+++ b/t/lib/ANFANG.pm
@@ -161,7 +161,7 @@ END {
 
       # Crucial flushes in case we are piping things out (e.g. prove)
       # Otherwise the last lines will never arrive at the receiver
-      select($_), $| = 1 for \*STDOUT, \*STDERR;
+      close($_) for \*STDOUT, \*STDERR;
 
       POSIX::_exit($exit);
     } ),