diff options
author | Steve Mynott <steve.mynott@gmail.com> | 2016-07-19 16:23:18 +0100 |
---|---|---|
committer | Steve Mynott <steve.mynott@gmail.com> | 2016-07-19 16:23:18 +0100 |
commit | f23dc6d2b93388f1043ea42a106c18614176a63a (patch) | |
tree | 1a6738af6ead4cbb74262a463329a2ee271b0b00 /tools | |
parent | ebd5137587352a06164e8142b6f7655d7bbd5806 (diff) |
fix local module install on windows2016.07
Diffstat (limited to 'tools')
-rw-r--r-- | tools/build/module-install.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/build/module-install.pl b/tools/build/module-install.pl index 8af22e4..ecced4f 100644 --- a/tools/build/module-install.pl +++ b/tools/build/module-install.pl @@ -7,10 +7,13 @@ my $pandabin = shift @ARGV; my $exit = 0; +my $path_sep = "/"; +$path_sep = "\\" if ( $^O eq 'MSWin32' ); + while (<>) { next if /^\s*(#|$)/; my ($module) = /(\S+)/; - $exit ||= system $perl6bin, $pandabin, '--force', "install", "modules/$module"; + $exit ||= system $perl6bin, $pandabin, '--force', "install", "modules$path_sep$module"; } exit $exit; |