file::find patch for mojo::home

gistfile1.txt

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