omit XSLoader from bytecode dumps

p4raw-id: //depot/perl@5597

diff --git a/ext/B/B/Bytecode.pm b/ext/B/B/Bytecode.pm
index bafec3f..27003b6 100644 (file)
--- a/ext/B/B/Bytecode.pm
+++ b/ext/B/B/Bytecode.pm
@@ -653,7 +653,7 @@ sub bytecompile_main {
     walkoptree(main_root, "bytecode");
     warn "done main program, now walking symbol table\n" if $debug_bc;
     my ($pack, %exclude);
-    foreach $pack (qw(B O AutoLoader DynaLoader Config DB VMS strict vars
+    foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS strict vars
                      FileHandle Exporter Carp UNIVERSAL IO Fcntl Symbol
                      SelectSaver blib Cwd))
     {

diff --git a/ext/B/B/Stash.pm b/ext/B/B/Stash.pm
index fca3443..0a3543e 100644 (file)
--- a/ext/B/B/Stash.pm
+++ b/ext/B/B/Stash.pm
@@ -29,7 +29,7 @@ sub scan{
 }
 sub omit{
        my $module = shift;
-       my %omit=("DynaLoader::" => 1 , "CORE::" => 1 ,
+       my %omit=("DynaLoader::" => 1 , "XSLoader::" => 1, "CORE::" => 1 ,
                "CORE::GLOBAL::" => 1, "UNIVERSAL::" => 1 );
        return 1 if $omit{$module};
        if ($module eq "IO::" or $module eq "IO::Handle::"){

diff --git a/ext/B/B/Xref.pm b/ext/B/B/Xref.pm
index 0a5ceab..b4078b8 100644 (file)
--- a/ext/B/B/Xref.pm
+++ b/ext/B/B/Xref.pm
@@ -324,7 +324,7 @@ sub xref_definitions {
     my ($pack, %exclude);
     return if $nodefs;
     $subname = "(definitions)";
-    foreach $pack (qw(B O AutoLoader DynaLoader Config DB VMS
+    foreach $pack (qw(B O AutoLoader DynaLoader XSLoader Config DB VMS
                      strict vars FileHandle Exporter Carp)) {
         $exclude{$pack."::"} = 1;
     }