>
> if ($mtime > $Stat{$file}) {
> delete $INC{$key};
> # warn "Reloading $key\n";
> if (my $symref = $UndefFields{$key}) {
> # warn "undeffing fields\n";
> no strict 'refs';
> undef %{$symref};
> }
> no warnings FATAL => 'all';
> require $key;
> warn("Apache::Reload: process $$ reloading $key\n")
> if $DEBUG;
> }
as we discussed on p5p the other day, changing local $^W the way you did is
not equivalent - specifically, it will not silence these warnings they way
it does currently.
Paul's suggestion of "no warnings 'redefine';" back at the subroutine end
seems unreasonable to me, but ok, that's how things work now. given that, I
don't see a reason for "no warnings FATAL => 'all';" here, since we are now
relying on the module author to define how warnings are thrown and not
Apache::Reload.
unless I'm totally misunderstanding things...
--Geoff
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
