Integrate:

[p5sagit/p5-mst-13.2.git] / ext / B / t / showlex.t

diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t
index 9e3240f..850254e 100755 (executable)
--- a/ext/B/t/showlex.t
+++ b/ext/B/t/showlex.t
@@ -7,6 +7,11 @@ BEGIN {
     } else {
        @INC = '../lib';
     }
+    require Config;
+    if (($Config::Config{'extensions'} !~ /\bB\b/) ){
+        print "1..0 # Skip -- Perl configured without B module\n";
+        exit 0;
+    }
     require './test.pl';
 }
 
@@ -54,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);
 
@@ -100,3 +109,5 @@ $walker->();
 
 
 print $buf if $verbose;
+
+}