use absolute path for GatherDir.root

This makes it possible to perform a build without changing into the root directory first.
rjbs · Feb 1, 2015 · a5a2f8b · a5a2f8b
1 parent c5ee828
commit a5a2f8b
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Dist/Zilla/Plugin/GatherDir.pm b/lib/Dist/Zilla/Plugin/GatherDir.pm
@@ -170,6 +170,7 @@ sub gather_files {
   my $repo_root = $self->zilla->root;
   my $root = "" . $self->root;
   $root =~ s{^~([\\/])}{require File::HomeDir; File::HomeDir::->my_home . $1}e;
+  $root = path($root)->relative($repo_root) if path($root)->is_relative;
 
   my $prune_regex = qr/\000/;
   $prune_regex = qr/$prune_regex|$_/