From: Andy Grundman Date: Thu, 27 Oct 2005 19:17:47 +0000 (+0000) Subject: Updated Changes X-Git-Tag: 5.7099_04~1089 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=4c980e7668ca115edb52d7ec19a8d769fc73532c Updated Changes --- diff --git a/Changes b/Changes index 3aadee9..7ec9a4f 100644 --- a/Changes +++ b/Changes @@ -2,7 +2,13 @@ Tis file documents the revision history for Perl extension Catalyst. 5.50 - Restarter process in HTTP engine now properly exits when the - parent app is shut down. + parent app is shut down. + - Improved performance of restarter loop while watching for + changed files. + - Restarter will now detect new files added to an app on systems + that change directory mtimes when new files are created. + - Restarter now properly handles modules that are deleted from an + application. - Fixed memory leak in TestApp. 5.49_02 2005-10-26 12:39:00 diff --git a/lib/Catalyst/Engine/HTTP.pm b/lib/Catalyst/Engine/HTTP.pm index 14b441a..de1681b 100644 --- a/lib/Catalyst/Engine/HTTP.pm +++ b/lib/Catalyst/Engine/HTTP.pm @@ -340,15 +340,13 @@ sub _index { $file =~ s{/script/..}{}; return unless $file =~ /$regex/; return unless -f $file; - my $time = ( stat $file )[9]; - $index->{$file} = $time; + $index->{$file} = ( stat $file )[9]; # also watch the directory the file is in my $cur_dir = File::Spec->rel2abs($File::Find::dir); $cur_dir =~ s{/script/..}{}; unless ( $index->{$cur_dir} ) { - my $time = ( stat $cur_dir )[9]; - $index->{$cur_dir} = $time; + $index->{$cur_dir} = ( stat $cur_dir )[9]; } }, no_chdir => 1