diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-12-04 06:00:01 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-12-06 18:40:46 -0800 |
| commit | c14649af85a7ad311b6c48d48ff373f0727ea9ea (patch) | |
| tree | d535f56a1a6fde3e28a284c2f1bc98ee15820dd7 /t | |
| parent | ae7bdbc5a3f763805a37504f177d9b31989e11c5 (diff) | |
| download | perl-c14649af85a7ad311b6c48d48ff373f0727ea9ea.tar.gz | |
crlf.t: Add skip count
Diffstat (limited to 't')
| -rw-r--r-- | t/io/crlf.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/io/crlf.t b/t/io/crlf.t index 1e93ee02a8..f26ea0d85e 100644 --- a/t/io/crlf.t +++ b/t/io/crlf.t @@ -32,8 +32,10 @@ my $ungetc_count = 8200; # Somewhat over the likely buffer size SKIP: { - skip_if_miniperl("miniperl can't rely on loading PerlIO::scalar"); - skip("no PerlIO::scalar") unless $Config{extensions} =~ m!\bPerlIO/scalar\b!; + skip_if_miniperl("miniperl can't rely on loading PerlIO::scalar", + 2 * $ungetc_count + 1); + skip("no PerlIO::scalar", 2 * $ungetc_count + 1) + unless $Config{extensions} =~ m!\bPerlIO/scalar\b!; require PerlIO::scalar; my $fcontents = join "", map {"$_\015\012"} "a".."zzz"; open my $fh, "<:crlf", \$fcontents; |