skip assembler.t when there is no ByteLoader

Message-Id: <5.1.0.14.2.20020128162440.01ae7868@exchi01>

p4raw-id: //depot/perl@14482

diff --git a/ext/B/t/assembler.t b/ext/B/t/assembler.t
index 3e987e0..6640082 100644 (file)
--- a/ext/B/t/assembler.t
+++ b/ext/B/t/assembler.t
@@ -154,6 +154,13 @@ use strict;
 use Test::More;
 use Config qw(%Config);
 
+BEGIN {
+  if (($Config{'extensions'} !~ /\bByteLoader\b/) ){
+    print "1..0 # Skip -- Perl configured without ByteLoader module\n";
+    exit 0;
+  }
+}
+
 use B::Asmdata      qw( %insn_data );
 use B::Assembler    qw( &assemble_fh );
 use B::Disassembler qw( &disassemble_fh &get_header );