thanks, I'll add this for 1.22.
On Tue, 2 Nov 1999, Yasushi Nakajima wrote:
> 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
>