fixed Morbo to ignore hidden directories

mojolicious · Dec 20, 2011 · ea85cb3 · ea85cb3
1 parent c728047
commit ea85cb3
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,6 @@
 This file documents the revision history for Perl extension Mojolicious.
 
-2.39    2011-12-20 00:00:00
+2.39    2011-12-21 00:00:00
         - Deprecated all keep_alive_timeout attributes and parameters in
           favor of inactivity_timeout.
         - Added EXPERIMENTAL local_address attribute to Mojo::UserAgent.
@@ -12,6 +12,7 @@ This file documents the revision history for Perl extension Mojolicious.
           variables.
         - Improved documentation. (marcus, vervain, sri)
         - Improved tests for many environment variables.
+        - Fixed Morbo to ignore hidden directories.
         - Fixed small argument bug in client method of Mojo::IOLoop.
         - Fixed small memory leak in Mojo::IOLoop::Stream.
 

diff --git a/lib/Mojo/Home.pm b/lib/Mojo/Home.pm
@@ -10,6 +10,7 @@ use File::Basename 'dirname';
 use File::Find 'find';
 use File::Spec;
 use FindBin;
+use List::Util 'first';
 use Mojo::Asset::File;
 use Mojo::Command;
 use Mojo::Loader;
@@ -93,7 +94,7 @@ sub list_files {
     wanted => sub {
       my @parts =
         File::Spec->splitdir(File::Spec->abs2rel($File::Find::name, $dir));
-      push @files, join '/', @parts unless $parts[-1] =~ /^\./;
+      push @files, join '/', @parts unless first {/^\./} @parts;
     },
     no_chdir => 1
   }, $dir;