Use (file PerlIO::Layer 'perlio') rather than $Config{useperlio}

[p5sagit/p5-mst-13.2.git] / t / io / crlf.t

diff --git a/t/io/crlf.t b/t/io/crlf.t
index 20d278f..0968b36 100644 (file)
--- a/t/io/crlf.t
+++ b/t/io/crlf.t
@@ -14,7 +14,7 @@ END {
  unlink($file);
 }
 
-if ($Config{useperlio}) {
+if (find PerlIO::Layer 'perlio') {
  plan(tests => 6);
  ok(open(FOO,">:crlf",$file));
  ok(print FOO 'a'.((('a' x 14).qq{\n}) x 2000) || close(FOO));