Cygwin fails to open $^X on many occasion here

afile is still available from the previous test

p4raw-id: //depot/perl@24764

diff --git a/t/io/layers.t b/t/io/layers.t
index 41c44c4..5fcb4f6 100644 (file)
--- a/t/io/layers.t
+++ b/t/io/layers.t
@@ -215,7 +215,7 @@ SKIP: {
     # Check that PL_sigwarn's reference count is correct, and that 
     # &PerlIO::Layer::NoWarnings isn't prematurely freed.
     fresh_perl_like (<<'EOT', qr/^CODE/);
-open(UTF, "<:raw:encoding(utf8)", $^X) or die $!;
+open(UTF, "<:raw:encoding(utf8)", "afile") or die $!;
 print ref *PerlIO::Layer::NoWarnings{CODE};
 EOT