[Catalyst-commits] r6741 - / trunk/Catalyst-Runtime/lib

[zarquon at dev.catalyst.perl.org]

Author: zarquon
Date: 2007-08-27 15:08:46 +0100 (Mon, 27 Aug 2007)
New Revision: 6741

Modified:
   /
   trunk/Catalyst-Runtime/lib/Catalyst.pm
Log:
 r11510 at zaphod:  kd | 2007-08-27 23:29:50 +1000
 module::pluggable::object patches from rolsky



Property changes on: 
___________________________________________________________________
Name: svk:merge
   - 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:11507
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909
   + 1b129c88-ebf4-0310-add9-f09427935aba:/local/catalyst:4278
1c72fc7c-9ce4-42af-bf25-3bfe470ff1e8:/local/Catalyst:11510
3b9770f9-e80c-0410-a7de-cd203d167417:/local/catalyst:3514
dd8ad9ea-0304-0410-a433-df5f223e7bc0:/local/Catalyst:6909

Modified: trunk/Catalyst-Runtime/lib/Catalyst.pm
===================================================================
--- trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-08-24 22:45:18 UTC (rev 6740)
+++ trunk/Catalyst-Runtime/lib/Catalyst.pm	2007-08-27 14:08:46 UTC (rev 6741)
@@ -1865,6 +1865,7 @@
         
     my $locator = Module::Pluggable::Object->new(
         search_path => [ map { s/^(?=::)/$class/; $_; } @paths ],
+        except => qr/\.#/,
         %$config
     );