From: Father Chrysostomos <sprout@cpan.org>
Date: Sun, 17 Jul 2011 05:09:46 +0000 (-0700)
Subject: Correct skip count in perlio.t
X-Git-Tag: accepted/trunk/20130322.191538~3279
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=abc55529237a5ba1f78b1a7b1fdd6e82167f8897;p=platform%2Fupstream%2Fperl.git

Correct skip count in perlio.t

This makes it pass under miniperl again.
---

diff --git a/t/io/perlio.t b/t/io/perlio.t
index a65b0d3..42619b5 100644
--- a/t/io/perlio.t
+++ b/t/io/perlio.t
@@ -132,7 +132,7 @@ sub find_filename {
 SKIP: {
     eval { require PerlIO::scalar };
     unless (find PerlIO::Layer 'scalar') {
-	skip("PerlIO::scalar not found", 9);
+	skip("PerlIO::scalar not found", 11);
     }
     my $var;
     ok( open(my $x,"+<",\$var), 'magic in-memory file via 3 arg open with \\$var');