diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2010-07-23 17:13:03 +0200 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2010-07-23 17:13:03 +0200 |
commit | ea236fbfa840d0fe92bfd9d5d7c391279fa038a9 (patch) | |
tree | e5496170b19865fe3868af29f761fb74517ac11c /build/download-stuff.pl | |
parent | 4c8db545dc63ce368c631e24ff88e57aaf0a9940 (diff) |
add buildall script, which so far can install Rakudo and ufo
Diffstat (limited to 'build/download-stuff.pl')
-rw-r--r-- | build/download-stuff.pl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/build/download-stuff.pl b/build/download-stuff.pl index 3ed2ba9..c6af886 100644 --- a/build/download-stuff.pl +++ b/build/download-stuff.pl @@ -1,6 +1,9 @@ #!/usr/bin/perl use strict; use warnings; +use 5.010; +use File::Copy; +use autodie qw(mkdir chdir open close copy); my @modules = qw( http://github.com/rakudo/rakudo @@ -19,6 +22,8 @@ my @modules = qw( http://gitorious.org/http-daemon/mainline ); +mkdir 'dist' unless -e 'dist'; + chdir 'dist' or die "Can't chdir to build dir: $!"; for my $m (@modules) { @@ -42,14 +47,17 @@ for my $m (@modules) { # so a branch name, tag name, sha1 sum, HEAD~3 ( not quite sane, # but possible ) # -# XXX we want rakudo 2010.07 of course, but that will give an error now my %tags = ( rakudo => '2010.07' ); while (my ($project, $version) = each %tags) { - chdir $project or die "Can't chdir to '$project': $!"; + chdir $project; system('git', 'checkout', $version) == 0 or die "Can't git checkout $version: $?"; - chdir '..' or die "Can't chdir back to dist/ folder: $!"; + chdir '..'; } +chdir('..'); + +copy('build/buildall.pl', 'dist/'); # TODO: copy docs, build scripts, whatever +# |