Cygwin fails to open $^X on many occasion here
H.Merijn Brand [Wed, 8 Jun 2005 19:14:19 +0000 (19:14 +0000)]
afile is still available from the previous test

p4raw-id: //depot/perl@24764

t/io/layers.t

index 41c44c4..5fcb4f6 100644 (file)
@@ -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