Skip to content
Permalink
Browse files

Fix distribution path format on windows

  • Loading branch information...
ugexe committed May 19, 2018
1 parent a7620ce commit e1ef571eee04450dedeab678ce052d1220e85170
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/core/CompUnit/Repository/FileSystem.pm6
@@ -214,17 +214,17 @@ class CompUnit::Repository::FileSystem does CompUnit::Repository::Locally does C
api => '*',
auth => '',
files => %((
(Rakudo::Internals.DIR-RECURSE(self!dist-prefix.child('bin').absolute).map({ .IO.relative(self!dist-prefix) }).map({
(Rakudo::Internals.DIR-RECURSE(self!dist-prefix.child('bin').absolute).map({ .IO.relative(self!dist-prefix).subst(:g, '\\', '/') }).map({
$_ => $_
}).hash if self!dist-prefix.child('bin').d).Slip,
(Rakudo::Internals.DIR-RECURSE(self!dist-prefix.child('resources').absolute).map({ .IO.relative(self!dist-prefix) }).map({
(Rakudo::Internals.DIR-RECURSE(self!dist-prefix.child('resources').absolute).map({ .IO.relative(self!dist-prefix).subst(:g, '\\', '/') }).map({
$_ ~~ m/^resources\/libraries\/(.*)/
?? ('resources/libraries/' ~ ($0.IO.dirname eq '.'??''!!$0.IO.dirname~"/") ~ $0.IO.basename.subst(/^lib/, '').subst(/\..*/, '') => $_)
!! ($_ => $_)
}).hash).Slip,
).Slip),
provides => Rakudo::Internals.DIR-RECURSE($!prefix.absolute).map({ .IO.relative(self!dist-prefix) }).map({
$_.subst(:g, /\/ | \\/, "::").subst(:g, /\:\:+/, '::').subst(/^.*?'::'/, '').subst(/\..*/, '') => $_
$_.subst(:g, /\/ | \\/, "::").subst(:g, /\:\:+/, '::').subst(/^.*?'::'/, '').subst(/\..*/, '') => $_.subst(:g, '\\', '/')
}).hash,
}, :prefix(self!dist-prefix));

0 comments on commit e1ef571

Please sign in to comment.
You can’t perform that action at this time.