Updated Changes

diff --git a/Changes b/Changes
index 3aadee9..7ec9a4f 100644 (file)
--- 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 (file)
--- 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