You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/08/16 10:05:50 UTC
cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl RegistryCooker.pm RegistryLoader.pm
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};
}