From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 4 Dec 2013 14:00:01 +0000 (-0800)
Subject: crlf.t: Add skip count
X-Git-Tag: upstream/5.20.0~1033^2~2
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c14649af85a7ad311b6c48d48ff373f0727ea9ea;p=platform%2Fupstream%2Fperl.git

crlf.t: Add skip count
---

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;