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 (file)
--- 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 (file)
--- 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