X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2FB%2FStash.pm;h=5e60868a28ea7c4b248765b5448327c9e084a8aa;hb=bb7c595be2e30a806b95ad83e9d3613aeb95c384;hp=d992a89af85d47233f0a85565971c9cc029c7a7d;hpb=146174a91a192983720a158796dc066226ad0e55;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/B/B/Stash.pm b/ext/B/B/Stash.pm
index d992a89..5e60868 100644
--- a/ext/B/B/Stash.pm
+++ b/ext/B/B/Stash.pm
@@ -2,11 +2,21 @@
 # vishalb@hotmail.com 
 package B::Stash;
 
+our $VERSION = '1.00';
+
+=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 +39,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::"){