From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 10 Sep 2004 16:40:17 +0000 (+0000)
Subject: Integrate:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e77e2f143f073d08d6764e30771960b2bccde0db;p=p5sagit%2Fp5-mst-13.2.git

Integrate:
[ 23318]
Update the skips for the no perlio case
p4raw-link: @23318 on //depot/maint-5.8/perl: cacd0da5c2bc20390f0d85d7dcca7be08a68b40d

p4raw-id: //depot/perl@23319
p4raw-integrated: from //depot/maint-5.8/perl@23300 'copy in'
	ext/B/t/showlex.t (@23288..) ext/B/t/optree_check.t
	ext/B/t/optree_concise.t (@23290..)
---

diff --git a/ext/B/t/optree_check.t b/ext/B/t/optree_check.t
index 7c86291..c71cd7e 100644
--- a/ext/B/t/optree_check.t
+++ b/ext/B/t/optree_check.t
@@ -28,7 +28,7 @@ use Config;
 plan tests => 5 + 18 + 14 * $gOpts{selftest};	# fudged
 
 SKIP: {
-    skip "no perlio in this build", 5 + 19 + 14 * $gOpts{selftest}
+    skip "no perlio in this build", 5 + 18 + 14 * $gOpts{selftest}
     unless $Config::Config{useperlio};
 
 
diff --git a/ext/B/t/optree_concise.t b/ext/B/t/optree_concise.t
index b274409..856f4c6 100644
--- a/ext/B/t/optree_concise.t
+++ b/ext/B/t/optree_concise.t
@@ -17,7 +17,7 @@ use Config;
 
 plan tests => 23;
 SKIP: {
-skip "no perlio in this build", 24 unless $Config::Config{useperlio};
+skip "no perlio in this build", 23 unless $Config::Config{useperlio};
 
 $SIG{__WARN__} = sub {
     my $err = shift;
diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index b99cf16..850254e 100755
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -59,6 +59,10 @@ like ($out, qr/2: $nb/ms, 'found $b in "my ($a,$b)"');
 
 print $out if $verbose;
 
+SKIP: {
+    skip "no perlio in this build", 5
+    unless $Config::Config{useperlio};
+
 our $buf = 'arb startval';
 my $ak = B::Showlex::walk_output (\$buf);
 
@@ -105,3 +109,5 @@ $walker->();
 
 
 print $buf if $verbose;
+
+}