[Catalyst-commits] r11264 - Catalyst-Devel/1.00/trunk/lib/Catalyst

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-08-28 13:00:32 +0000 (Fri, 28 Aug 2009)
New Revision: 11264

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter.pm
Log:
Exclude more crap.

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter.pm	2009-08-28 00:55:20 UTC (rev 11263)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Restarter.pm	2009-08-28 13:00:32 UTC (rev 11264)
@@ -54,7 +54,7 @@
 
     delete $p->{start_sub};
 
-    $p->{filter} ||= qr/(?:\/|^)(?!\.\#).+(?:\.yml$|\.yaml$|\.conf|\.pm)$/;
+    $p->{filter} ||= qr/(?:\/|^)(?![.#_]).+(?:\.yml$|\.yaml$|\.conf|\.pm)$/;
     $p->{directories} ||= abs_path( File::Spec->catdir( $FindBin::Bin, '..' ) );
 
     # We could make this lazily, but this lets us check that we