Work on eliminating systematic failures on make minitest:

[p5sagit/p5-mst-13.2.git] / t / io / print.t

diff --git a/t/io/print.t b/t/io/print.t
index f33aa66..31d559a 100755 (executable)
--- a/t/io/print.t
+++ b/t/io/print.t
@@ -6,7 +6,8 @@ BEGIN {
 }
 
 use strict 'vars';
-use Errno;
+eval 'use Errno';
+die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
 
 print "1..19\n";
 
@@ -41,6 +42,8 @@ print @x,"14\nok",@y;
     print "";
 }
 
+$\ = '';
+
 if (!exists &Errno::EBADF) {
     print "ok 19 # skipped: no EBADF\n";
 } else {