7;t always force the Reload. That's why I thought
> Devel:: might be the best place for it.
do_stuff() if $ENV{TESTING}; # pretty trival
> I think naming is very important and I
> do want to come up with the best name.
Oh good. Me too.
--
Chris Thorman (413) 473-0853 e-fax
the best name.
>
>Oh good. Me too.
>
>--
>Never ascribe to malice that which can be explained by stupidity.
> (via, but not speaking for Deutsche Bank)
Chris Thorman (413) 473-0853 e-fax
er if your module can just replace this one...?
>
>--
>Never ascribe to malice that which can be explained by stupidity.
> (via, but not speaking for Deutsche Bank)
Chris Thorman (413) 473-0853 e-fax
Loaded}}{keys
%{$Devel::Reloader::Debug->{Reloaded }}} = values
%{$Devel::Reloader::Debug->{Reloaded }};
## Copy entries for the items that changed into the non-local %INC
hash.
@INC{keys %{$Devel::Reloader::Debug->{GotLoaded}}} = values
%{$D
for the items that changed into the non-local %INC
hash.
@INC{keys %{$Devel::Reloader::Debug->{GotLoaded}}} = values
%{$Devel::Reloader::Debug->{GotLoaded}};
}
return($ReturnVal);
}
# Utility routines ##
sub CompareHashKeys
{
my ($Hash1, $Hash2) = @_;
my $In1NotIn2 = {}; @$In1NotIn2{keys %$Hash1 } = undef; delete
@$In1NotIn2{keys %$Hash2 };
my $In2NotIn1 = {}; @$In2NotIn1{keys %$Hash2 } = undef; delete
@$In2NotIn1{keys %$Hash1 };
my $Subset= {}; @$Subset {keys %$Hash1, keys %$Hash2} = undef; delete
@$Subset {keys %$In1NotIn2, keys %$In2NotIn1};
return($In1NotIn2, $In2NotIn1, $Subset);
}
1;
Chris Thorman (413) 473-0853 e-fax
