Integrate:

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

diff --git a/ext/B/t/assembler.t b/ext/B/t/assembler.t
index f92ebd7..fedb6a7 100644 (file)
--- a/ext/B/t/assembler.t
+++ b/ext/B/t/assembler.t
@@ -155,6 +155,10 @@ use Test::More;
 use Config qw(%Config);
 
 BEGIN {
+  if (($Config{'extensions'} !~ /\bB\b/) ){
+    print "1..0 # Skip -- Perl configured without B module\n";
+    exit 0;
+  }
   if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
     print "1..0 # Skip -- Perl configured without ByteLoader module\n";
     exit 0;
@@ -249,6 +253,7 @@ pvcontents  => [],
 strconst    => [ '""', '"another string"' ], # no NUL
 op_tr_array => [ join( ',', 256, 0..255 ) ],
 PADOFFSET   => undef,
+long        => undef,
              );
 
 # Erronous operand values
@@ -272,6 +277,7 @@ pvcontents  => [ '"spurious arg"' ],
 strconst    => [  'no quote"',  '"with NUL '."\0".' char"' ], # no NUL
 op_tr_array => undef, # op_pv_tr is no longer exactly 256 shorts
 PADOFFSET   => undef,
+long        => undef,
              );