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.
