improved Mojo::Home portability

mojolicious · Aug 23, 2011 · 675152d · 675152d
1 parent e8219fd
commit 675152d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -1,6 +1,7 @@
 This file documents the revision history for Perl extension Mojolicious.
 
 1.89    2011-08-23 00:00:00
+        - Improved Mojo::Home portability. (omega)
         - Improved documentation.
 
 1.88    2011-08-23 00:00:00

diff --git a/lib/Mojo/Home.pm b/lib/Mojo/Home.pm
@@ -85,9 +85,12 @@ sub list_files {
   $dir = File::Spec->catdir($root, split '/', ($dir || ''));
   return [] unless -d $dir;
   my @files;
-  find sub {
-    push @files, join '/',
-      File::Spec->splitdir(File::Spec->abs2rel($File::Find::name, $dir));
+  find {
+    wanted => sub {
+      push @files, join '/',
+        File::Spec->splitdir(File::Spec->abs2rel($File::Find::name, $dir));
+    },
+    no_chdir => 1
   }, $dir;
 
   return [sort @files];