diff options
-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; |