From 8958c744cbd584fc51d78f4c03dce6168b188331 Mon Sep 17 00:00:00 2001
From: "H.Merijn Brand" <h.m.brand@xs4all.nl>
Date: Wed, 8 Jun 2005 19:14:19 +0000
Subject: [PATCH] Cygwin fails to open $^X on many occasion here afile is still
 available from the previous test

p4raw-id: //depot/perl@24764
---
 t/io/layers.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/io/layers.t b/t/io/layers.t
index 41c44c4..5fcb4f6 100644
--- 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
 
-- 
2.7.4