X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst%2FRestarter.pm;h=fd5a53457d32dae6f54c79bc749abdec6742e2ca;hb=9bece7938e29e7c125b1079b31e0a43b873442b9;hp=98c8286e2e0f38df296b1618258c288951bf1d75;hpb=868361e89aa8a7178bf2085fbddbb195498b0a7f;p=catagits%2FCatalyst-Devel.git

diff --git a/lib/Catalyst/Restarter.pm b/lib/Catalyst/Restarter.pm
index 98c8286..fd5a534 100644
--- a/lib/Catalyst/Restarter.pm
+++ b/lib/Catalyst/Restarter.pm
@@ -4,7 +4,9 @@ use Moose;
 
 use Cwd qw( abs_path );
 use File::ChangeNotify;
+use File::Spec;
 use FindBin;
+use Catalyst::Utils;
 use namespace::clean -except => 'meta';
 
 has start_sub => (
@@ -24,6 +26,11 @@ has _watcher => (
     isa => 'File::ChangeNotify::Watcher',
 );
 
+has _filter => (
+    is      => 'rw',
+    isa     => 'RegexpRef',
+);
+
 has _child => (
     is  => 'rw',
     isa => 'Int',
@@ -42,8 +49,7 @@ sub pick_subclass {
 
     $subclass = 'Catalyst::Restarter::' . $subclass;
 
-    eval "use $subclass";
-    die $@ if $@;
+    Catalyst::Utils::ensure_class_loaded($subclass);
 
     return $subclass;
 }
@@ -55,7 +61,22 @@ sub BUILD {
     delete $p->{start_sub};
 
     $p->{filter} ||= qr/(?:\/|^)(?![.#_]).+(?:\.yml$|\.yaml$|\.conf|\.pm)$/;
-    $p->{directories} ||= abs_path( File::Spec->catdir( $FindBin::Bin, '..' ) );
+
+    my $app_root = abs_path( File::Spec->catdir( $FindBin::Bin, '..' ) );
+
+    # Monitor application root dir
+    $p->{directories} ||= $app_root;
+
+    # exclude t/, root/ and hidden dirs
+    $p->{exclude} ||= [
+        File::Spec->catdir($app_root, 't'),
+        File::Spec->catdir($app_root, 'root'),
+        qr(/\.[^/]*/?$),    # match hidden dirs
+    ];
+
+    # keep filter regexp to make sure we don't restart on deleted
+    # files or directories where we can't check -d
+    $self->_filter( $p->{filter} );
 
     # We could make this lazily, but this lets us check that we
     # received valid arguments for the watcher up front.
@@ -77,8 +98,8 @@ sub _restart_on_changes {
 
     # We use this loop in order to avoid having _handle_events() call back
     # into this method. We used to do that, and the end result was that stack
-    # traces become longer and longer with every restart. Using the loop, the
-    # portion of the stack trace that covers this code never changes.
+    # traces became longer and longer with every restart. Using this loop, the
+    # portion of the stack trace that covers this code does not grow.
     while (1) {
         my @events = $self->_watcher->wait_for_events();
         $self->_handle_events(@events);
@@ -89,22 +110,36 @@ sub _handle_events {
     my $self   = shift;
     my @events = @_;
 
-    print STDERR "\n";
-    print STDERR "Saw changes to the following files:\n";
-
+    my @files;
+    # Filter out any events which are the creation / deletion of directories
+    # so that creating an empty directory won't cause a restart
     for my $event (@events) {
         my $path = $event->path();
         my $type = $event->type();
-
-        print STDERR " - $path ($type)\n";
+        if (   ( $type ne 'delete' && -f $path )
+            || ( $type eq 'delete' && $path =~ $self->_filter ) )
+        {
+            push @files, { path => $path, type => $type };
+        }
     }
 
-    print STDERR "\n";
-    print STDERR "Attempting to restart the server\n\n";
+    if (@files) {
+        print STDERR "\n";
+        print STDERR "Saw changes to the following files:\n";
 
-    $self->_kill_child;
+        for my $f (@files) {
+            my $path = $f->{path};
+            my $type = $f->{type};
+            print STDERR " - $path ($type)\n";
+        }
 
-    $self->_fork_and_start;
+        print STDERR "\n";
+        print STDERR "Attempting to restart the server\n\n";
+
+        $self->_kill_child;
+
+        $self->_fork_and_start;
+    }
 }
 
 sub DEMOLISH {
@@ -167,7 +202,7 @@ the child, forks again, and starts a new server.
 
 =head1 SEE ALSO
 
-L<Catalyst>, <File::ChangeNotify>
+L<Catalyst>, L<File::ChangeNotify>
 
 =head1 AUTHORS