aboutsummaryrefslogtreecommitdiff
path: root/build/buildall.pl
diff options
context:
space:
mode:
authorMoritz Lenz <moritz@faui2k3.org>2010-07-24 23:56:02 +0200
committerMoritz Lenz <moritz@faui2k3.org>2010-07-24 23:56:02 +0200
commitb3012ed0082728b46ddb7247ceb6b0e507ff435d (patch)
tree9015f1347aca88921d5af76be2a8306324e0b714 /build/buildall.pl
parenta4fc7bb9505a3c297c078f0f98f8fafc039ee2f9 (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.pl11
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 $_ ($?): $!";
+
}