Merge pull request #62 from FROGGS/patch-1

cleanup path to pass use it in substr
tadzik · Feb 1, 2014 · c00f5cf · c00f5cf
2 parents f80ec50 + ae6eab5
commit c00f5cf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Panda/Fetcher.pm b/lib/Panda/Fetcher.pm
@@ -25,7 +25,8 @@ sub git-fetch($from, $to) {
 
 sub local-fetch($from, $to) {
     for find(dir => $from).list {
-        my $d = $_.directory.substr($from.chars);
+        # We need to cleanup the path, because the returned elems are too.
+        my $d = $_.directory.substr($from.IO.path.cleanup.chars);
         next if $d ~~ /^ '/'? '.git'/; # skip VCS files
         my $where = "$to/$d";
         mkpath $where;