From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 12 Nov 2005 18:48:29 +0000 (+0000)
Subject: Make B's tests skip correctly when PerlIO is not configured.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=28380c63cd9173f18880af861b13577e75427568;p=p5sagit%2Fp5-mst-13.2.git

Make B's tests skip correctly when PerlIO is not configured.

p4raw-id: //depot/perl@26100
---

diff --git a/ext/B/t/concise-xs.t b/ext/B/t/concise-xs.t
index a42d1df..acce386 100644
--- a/ext/B/t/concise-xs.t
+++ b/ext/B/t/concise-xs.t
@@ -84,6 +84,10 @@ BEGIN {
         print "1..0 # Skip -- Perl configured without B module\n";
         exit 0;
     }
+    unless ($Config::Config{useperlio}) {
+        print "1..0 # Skip -- Perl configured without perlio\n";
+        exit 0;
+    }
 }
 
 use Getopt::Std;
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index fa696e7..0f573de 100644
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -138,7 +138,7 @@ sub render {
 
 SKIP: {
     # tests output to GLOB, using perlio feature directly
-    skip "no perlio on this build", 122
+    skip "no perlio on this build", 127
 	unless $Config::Config{useperlio};
     
     set_style_standard('concise');  # MUST CALL before output needed