The debugging aid #19182 didn't.

[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 6bec7e0..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 );
@@ -197,7 +204,7 @@ sub putdis(@){
 #
 sub gen_type($$$){
     my( $href, $descref, $text ) = @_;
-    for my $odt ( keys( %opsByType ) ){
+    for my $odt ( sort( keys( %opsByType ) ) ){
         my $opcode = $opsByType{$odt}->[0];
        my $sel = $odt;
        $sel =~ s/^GET_//;