stas 2002/12/27 23:39:21 Modified: ModPerl-Registry/lib/ModPerl RegistryLoader.pm Log: use the ModPerl::Registry package as the default, so it'll be backcompat with 1.0 Revision Changes Path 1.5 +1 -0 modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm Index: RegistryLoader.pm =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryLoader.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -u -r1.4 -r1.5 --- RegistryLoader.pm 16 Aug 2002 09:01:17 -0000 1.4 +++ RegistryLoader.pm 28 Dec 2002 07:39:20 -0000 1.5 @@ -16,6 +16,7 @@ sub create { my $class = shift; my $self = bless {@_} => ref($class)||$class; + $self->{package} ||= 'ModPerl::Registry'; $self->{pool} = APR::Pool->new(); $self->load_package($self->{package}); return $self;