# 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{
}
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::"){