diff options
Diffstat (limited to 't/io/crlf.t')
| -rw-r--r-- | t/io/crlf.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/io/crlf.t b/t/io/crlf.t index 5f879f2681..084be211fd 100644 --- a/t/io/crlf.t +++ b/t/io/crlf.t @@ -35,7 +35,7 @@ if (find PerlIO::Layer 'perlio') { eval 'use PerlIO::scalar'; skip(q/miniperl cannnot load PerlIO::scalar/) if $@ =~ /dynamic loading not available/; - my $fcontents = join "", map {"$_\r\n"} "a".."zzz"; + my $fcontents = join "", map {"$_\015\012"} "a".."zzz"; open my $fh, "<:crlf", \$fcontents; local $/ = "xxx"; local $_ = <$fh>; |