From b3012ed0082728b46ddb7247ceb6b0e507ff435d Mon Sep 17 00:00:00 2001
From: Moritz Lenz <moritz@faui2k3.org>
Date: Sat, 24 Jul 2010 23:56:02 +0200
Subject: releasd reakudo is so broken that pls does not run; use master for
 now

---
 build/buildall.pl       | 11 +++++++++--
 build/download-stuff.pl |  2 +-
 2 files changed, 10 insertions(+), 3 deletions(-)

(limited to 'build')

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 $_ ($?): $!";
+
 }
 
 
diff --git a/build/download-stuff.pl b/build/download-stuff.pl
index 9306998..f220010 100644
--- a/build/download-stuff.pl
+++ b/build/download-stuff.pl
@@ -64,7 +64,7 @@ chdir '../..';
 # but possible )
 #
 my %tags = (
-    rakudo  => '2010.07',
+    rakudo  => 'master', # XXX replace by tag of Rakudo point release
     proto   => 'pls_rstar_hacks',
 );
 
-- 
cgit v1.1