From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 7 Mar 2000 16:33:29 +0000 (+0000)
Subject: omit XSLoader from bytecode dumps
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=595f3c5ff72f459813d82afd2db09bc1b9304e2b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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;
     }