Change 18164 by rgs@rgs-home on 2002/11/19 22:32:52 t/io/crlf.t failed with miniperl.
Affected files ... .... //depot/perl/t/io/crlf.t#6 edit Differences ... ==== //depot/perl/t/io/crlf.t#6 (text) ==== Index: perl/t/io/crlf.t --- perl/t/io/crlf.t#5~18086~ Mon Nov 4 07:16:34 2002 +++ perl/t/io/crlf.t Tue Nov 19 14:32:52 2002 @@ -30,7 +30,9 @@ { local $/; $text = <FOO> } is(count_chars($text, "\015\012"), 2000); + SKIP: { + if ($^X =~ /\bminiperl\b/) { skip(q/miniperl can't load PerlIO layers/) } my $fcontents = join "", map {"$_\r\n"} "a".."zzz"; open my $fh, "<:crlf", \$fcontents; local $/ = "xxx"; End of Patch.