#!./perl
-# $RCSfile$
-
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
use strict;
-use Errno;
+eval 'use Errno';
+die $@ if $@ and !$ENV{PERL_CORE_MINITEST};
plan tests => 2;
skip "no EBADF", 1 if (!exists &Errno::EBADF);
$! = 0;
+ no warnings 'unopened';
read(B,$b,1);
ok($! == &Errno::EBADF);
}