[Bps-public-commit] r15274 - in Prophet/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Wed Aug 20 04:59:58 2008
New Revision: 15274

Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/lib/Prophet/App.pm

Log:
 r69842 at onn:  sartak | 2008-08-20 04:59:50 -0400
 Fix the exception regex for plugging


Modified: Prophet/trunk/lib/Prophet/App.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/App.pm	(original)
+++ Prophet/trunk/lib/Prophet/App.pm	Wed Aug 20 04:59:58 2008
@@ -55,7 +55,7 @@
 sub _load_replica_types {
     my $self = shift;
     my $replica_class = blessed($self)."::Replica";
-    my $except = $replica_class."::(.*)::";
+    my $except = "\Q$replica_class\E::.*::";
     Module::Pluggable->import( search_path => $replica_class, sub_name => 'app_replica_types', require => 0, except => qr/$except/);
     for my $package ( $self->app_replica_types) {
         $self->require($package);