blob: 0bd4cee8e18c93e1fdd5ad3cb9a3c52c06fed99e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#! perl
use warnings;
use strict;
my $perl6bin = shift @ARGV;
my $zefbin = shift @ARGV;
my $exit = 0;
my $path_sep = "/";
$path_sep = "\\" if ( $^O eq 'MSWin32' );
while (<>) {
next if /^\s*(#|$)/;
my ($module) = /(\S+)/;
$exit ||= system $perl6bin, $zefbin,
'--force', '--/test', 'install', "./modules$path_sep$module";
}
exit $exit;
|