From c14649af85a7ad311b6c48d48ff373f0727ea9ea Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 4 Dec 2013 06:00:01 -0800 Subject: [PATCH] crlf.t: Add skip count --- t/io/crlf.t | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/t/io/crlf.t b/t/io/crlf.t index 1e93ee0..f26ea0d 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; -- 2.7.4