stas 2002/08/16 01:05:50 Modified: ModPerl-Registry/lib/ModPerl RegistryCooker.pm RegistryLoader.pm Log: introduce the constant ModPerl::RegistryCooker::NAMESPACE_ROOT, so the same root can be re-used in the RegistryLoader Revision Changes Path 1.22 +4 -1 modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm Index: RegistryCooker.pm =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryCooker.pm,v retrieving revision 1.21 retrieving revision 1.22 diff -u -r1.21 -r1.22 --- RegistryCooker.pm 16 Aug 2002 07:07:38 -0000 1.21 +++ RegistryCooker.pm 16 Aug 2002 08:05:50 -0000 1.22 @@ -76,6 +76,9 @@ use constant FALSE => sub { 0 }; +use constant NAMESPACE_ROOT => 'ModPerl::ROOT'; + + ######################################################################### # func: new # dflt: new @@ -243,7 +246,7 @@ sub namespace_root { my $self = shift; - join '::', 'ModPerl::ROOT', ref($self); + join '::', NAMESPACE_ROOT, ref($self); } ######################################################################### 1.3 +1 -1 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.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- RegistryLoader.pm 16 Aug 2002 08:01:18 -0000 1.2 +++ RegistryLoader.pm 16 Aug 2002 08:05:50 -0000 1.3 @@ -86,7 +86,7 @@ # the preloaded file needs to be precompiled into the package # specified by the 'package' attribute, not RegistryLoader sub namespace_root { - join '::', 'ModPerl::ROOT', + join '::', ModPerl::RegistryCooker::NAMESPACE_ROOT, shift->[ModPerl::RegistryCooker::REQ]->{package}; }