you may have missed the conversation yesterday on modperl-dev, but just to
recap...
it just came up that Apache::Symbol::undef_functions really isn't needed any
more. That is, 5.004+ avoids the manditory 'subroutine redefined' warnings
and makes then not-manditory. Thus local $^W stops the warnings. I was just
dealing with this with Dispatch.pm and have already removed it in the next
version. Also, the presence of Apache::Symbol is up in the air in 2.0,
possibly to be included for back-compat, though...
just FYI
--Geoff
> -----Original Message-----
> From: Matt Sergeant [mailto:[EMAIL PROTECTED]]
> Sent: Friday, August 11, 2000 7:13 AM
> To: [EMAIL PROTECTED]
> Subject: RFC: Apache::Reload
>
>
> This dates back to discussions nearly a year ago now, from Randal's
> initial Stonehenge::Reload, and Doug saying he'd like to see a more
> generic Apache::Reload that got rid of the necessity to call
> reload_me in
> your own code... Anyway, I needed this facility too, since I wanted
> modules to be able to just "use Apache::Reload" and have them
> reloaded,
> without having to call something myself in some sort of
> handler() function, because 90% of my modules don't use a
> handler() entry
> point... So I came up with Apache::Reload based mostly on
> Apache::StatINC
> and partly on Stonehenge::Reload, here's the code, comments welcome:
>
> package Apache::Reload;
>
> use strict;
>
> $Apache::Reload::VERSION = '0.01';
>
> my %Stat; # = ($INC{"Apache/Reload.pm"} => time);
> my %INCS;
>
> sub import {
> my $class = shift;
> my ($package,$file) = (caller)[0,1];
> $package =~ s/::/\//g;
> $package .= ".pm";
>
> warn "Apache::Reload: $package loaded me\n";
>
> if (grep /^off$/, @_) {
> delete $INCS{$package};
> }
> else {
> $INCS{$package} = $file;
> }
> }
>
> sub handler {
> my $r = shift;
> my $do_undef = ref($r) &&
> (lc($r->dir_config("UndefOnReload") || '') eq
> 'on');
>
> my $DEBUG = ref($r) &&
> (lc($r->dir_config("ReloadDebug") || '') eq
> 'on');
>
> while (my($key, $file) = each %INCS) {
> local $^W;
> warn "Apache::Reload: Checking mtime of $key\n"
> if $DEBUG;
>
> my $mtime = (stat $file)[9];
> warn("Apache::Reload: Can't locate $file\n"),next
> unless defined $mtime and $mtime;
>
> unless (defined $Stat{$file}) {
> $Stat{$file} = $^T;
> }
>
> if ($mtime > $Stat{$file}) {
> if ($do_undef and $key =~ /\.pm$/) {
> require Apache::Symbol;
> my $class =
> Apache::Symbol::file2class($key);
>
> $class->Apache::Symbol::undef_functions(undef, 1);
> }
> delete $INC{$key};
> require $key;
> warn("Apache::Reload: process $$ reloading
> $key\n")
> if $DEBUG;
> }
> $Stat{$file} = $mtime;
> }
>
> return 1;
> }
>
> 1;
> __END__
>
> =head1 NAME
>
> Apache::Reload - Reload this module on each request (if modified)
>
> =head1 SYNOPSIS
>
> In httpd.conf:
>
> PerlInitHandler Apache::StatINC
>
> Then your module:
>
> package My::Apache::Module;
>
> use Apache::Reload;
>
> sub handler { ... }
>
> 1;
>
> =head1 DESCRIPTION
>
> This module is an adaptation of Randall Schwartz's Stonehenge::Reload
> module that attempts to be a little more intuitive and makes the usage
> easier. Like Apache::StatINC it must be installed as an Init Handler,
> but unlike StatINC it must also be used by the module you
> want reloading.
>
> If you want to temporarily turn off reloading of a module (which is
> slightly problematic since it won't happen until the next hit on the
> same server because of the way this thing works) you can use the 'off'
> option:
>
> use Apache::Reload 'off';
>
> Obviously you wouldn't do that generally, but it can be useful if you
> intend to make large changes to a particular module.
>
> =head1 AUTHOR
>
> Matt Sergeant, [EMAIL PROTECTED]
>
> =head1 SEE ALSO
>
> Apache::StatINC, Stonehenge::Reload
>
> =cut
>
>
> --
> <Matt/>
>
> Fastnet Software Ltd. High Performance Web Specialists
> Providing mod_perl, XML, Sybase and Oracle solutions
> Email for training and consultancy availability.
> http://sergeant.org | AxKit: http://axkit.org
>
