state the full path of the file being considered

rjbs · Jun 5, 2015 · 0424d28 · 0424d28
1 parent 8bf238a
commit 0424d28
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Dist/Zilla/Plugin/GatherDir.pm b/lib/Dist/Zilla/Plugin/GatherDir.pm
@@ -168,6 +168,7 @@ sub gather_files {
   $exclude_regex = qr/(?:$exclude_regex)|$_/
     for @{ $self->exclude_match };
 
+  my $repo_root = $self->zilla->root;
   my $root = "" . $self->root;
   $root =~ s{^~([\\/])}{require File::HomeDir; File::HomeDir::->my_home . $1}e;
 
@@ -180,7 +181,7 @@ sub gather_files {
   my $rule = File::Find::Rule->new();
   $rule->extras({ follow => $self->follow_symlinks });
 
-  $rule->exec(sub { $self->log_debug('considering ' . path($_[-1])->relative($root)); 1 })
+  $rule->exec(sub { $self->log_debug('considering ' . path($_[-1])->relative($repo_root)); 1 })
     if $self->zilla->logger->get_debug;
 
   $rule->or(