tools/build/module-install.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#! perl

use warnings;
use strict;
my $perl6bin   = shift @ARGV;
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$path_sep$module";
}

exit $exit;