diff options
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 +# |