Remaining nit in the deparsing of reversed foreach loops

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

diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t
index 171abf1..873e484 100755 (executable)
--- a/ext/B/t/stash.t
+++ b/ext/B/t/stash.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;
+    }
 }
 
 $|  = 1;
@@ -68,6 +73,8 @@ $got = "@got";
 
 my $expected = "attributes Carp Carp::Heavy DB Exporter Exporter::Heavy Internals main Regexp utf8 version warnings";
 
+$expected =~ s/version // if $] < 5.009;
+
 {
     no strict 'vars';
     use vars '$OS2::is_aout';