diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2010-07-24 23:56:02 +0200 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2010-07-24 23:56:02 +0200 |
commit | b3012ed0082728b46ddb7247ceb6b0e507ff435d (patch) | |
tree | 9015f1347aca88921d5af76be2a8306324e0b714 /build/buildall.pl | |
parent | a4fc7bb9505a3c297c078f0f98f8fafc039ee2f9 (diff) |
releasd reakudo is so broken that pls does not run; use master for now
Diffstat (limited to 'build/buildall.pl')
-rw-r--r-- | build/buildall.pl | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/build/buildall.pl b/build/buildall.pl index 697c177..3aa9d8b 100644 --- a/build/buildall.pl +++ b/build/buildall.pl @@ -39,16 +39,23 @@ if ($res ne 'sanity') { print "Things look good so far, executing a very simple Perl 6 program worked!\n"; + copy('ufo/ufo', "$inst_path/bin/") or die "Can't copy ufo/ufo to $inst_path/bin: $!"; print "We now have alien technology that lets us install more modules...\n"; $ENV{PLS_NO_FETCH} = 1; +use Cwd; +my $proto_lib = getcwd() . '/proto/lib'; +$ENV{PERL6LIB} = $proto_lib; chdir 'proto' or die "Can't chdir to 'proto': $!"; # TODO: find a better way to determine which modules to install in this step. # Likely derive from @modules or so. -for (qw(xml-writer svg svg-plot)) { - system('perl6', 'proof-of-concept', $_); +for (qw(zavolaj xml-writer svg svg-plot)) { + print "Installing $_...\n"; + system('perl6', 'proof-of-concept', $_) == 0 + or die "Can't run poc $_ ($?): $!"; + } |