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

[dbsrgits/DBIx-Class.git] / t / lib / ANFANG.pm

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);
     } ),