Doug> the handler() in Apache::PerlRun was not originally indended to be
Doug> subclassed. however, if somebody submits a patch to make is
Doug> subclass-able that doesn't break the way Apache::PerlRun currently works,
Doug> that would be fine.
Following modified code works itself and as derived module on my
Apache/1.3.9 (Unix) mod_perl/1.21.
259,261c259,267
< sub handler {
< my $r = shift;
< my $pr = Apache::PerlRun->new($r);
---
> sub handler($$) {
> my($class, $r);
> if( @_ >= 2 ) {
> ($class, $r) = (shift, shift);
> } else {
> ($class, $r) = (__PACKAGE__, shift);
> }
> my $pr = $class->new($r);
I copied this code from RegistryNG.pm.
Sey Nakajima <[EMAIL PROTECTED]>
Kyoto, Japan
