This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Ensure that t/io/{print,read,say}.t load Errno at BEGIN time.
authorNicholas Clark <nick@ccl4.org>
Sun, 6 Mar 2011 22:42:22 +0000 (22:42 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 6 Mar 2011 22:48:16 +0000 (22:48 +0000)
commitbcf53fae4530fa696a6f26dd100207c224a13e89
tree1f9f1105fd378a581eeac035f403429921703883
parentbad1036f7c06bd513a9312c5265dcaa0e82dd8b3
Ensure that t/io/{print,read,say}.t load Errno at BEGIN time.

If Errno is loaded after the compiler has parsed the C<exists &Errno::EBADF>
later in the script, then the intent of that test is subverted - &Errno::EBADF
does not exist, at least as far as the typeglob bound to that op is concerned,
and the test for $! is skipped. I suspect that these have been skipping since
the implementation of Errno was changed in 42607a60df6df19b in May 2010 to
reduce its memory footprint by 55%.
t/io/print.t
t/io/read.t
t/io/say.t