cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryLoader.pm

[stas]

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;