From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 8 Jun 2005 19:14:19 +0000 (+0000)
Subject: Cygwin fails to open $^X on many occasion here
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8958c744cbd584fc51d78f4c03dce6168b188331;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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