multiple B::* changes

[p5sagit/p5-mst-13.2.git] / ext / B / B / Stash.pm

diff --git a/ext/B/B/Stash.pm b/ext/B/B/Stash.pm
index d992a89..f3a8247 100644 (file)
--- a/ext/B/B/Stash.pm
+++ b/ext/B/B/Stash.pm
@@ -2,11 +2,19 @@
 # vishalb@hotmail.com 
 package B::Stash;
 
+=pod
+
+=head1 NAME
+
+B::Stash - show what stashes are loaded
+
+=cut
+
 BEGIN { %Seen = %INC }
 
-STOP {
+CHECK {
        my @arr=scan($main::{"main::"});
-       @arr=map{s/\:\:$//;$_;}  @arr;
+       @arr=map{s/\:\:$//;$_ eq "<none>"?():$_;}  @arr;
        print "-umain,-u", join (",-u",@arr) ,"\n";
 }
 sub scan{
@@ -29,7 +37,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::"){