diff options
author | Moritz Lenz <moritz@faui2k3.org> | 2010-07-24 23:02:18 +0200 |
---|---|---|
committer | Moritz Lenz <moritz@faui2k3.org> | 2010-07-24 23:02:18 +0200 |
commit | 07f2c7d4ed0a9bd67af0671e85d33fd1981d75f5 (patch) | |
tree | 87fe7b1254280e139f7d300cadd06a6bcf1c1dd3 | |
parent | f901770a42617da47960f512beb7f9126b3bf3e0 (diff) |
download modules into proto/cache/
-rw-r--r-- | build/download-stuff.pl | 29 |
1 files changed, 24 insertions, 5 deletions
diff --git a/build/download-stuff.pl b/build/download-stuff.pl index c6af886..9306998 100644 --- a/build/download-stuff.pl +++ b/build/download-stuff.pl @@ -5,12 +5,17 @@ use 5.010; use File::Copy; use autodie qw(mkdir chdir open close copy); -my @modules = qw( +my @bootrap = qw( http://github.com/rakudo/rakudo + http://github.com/masak/proto + http://github.com/masak/ufo +); +my @modules = qw( http://github.com/jnthn/zavolaj http://github.com/jnthn/blizkost http://github.com/mberends/MiniDBI - http://github.com/masak/svg + http://github.com/masak/xml-writer + http://github.com/moritz/svg http://github.com/moritz/svg-plot http://github.com/moritz/Math-RungeKutta http://github.com/moritz/Math-Model @@ -26,8 +31,8 @@ mkdir 'dist' unless -e 'dist'; chdir 'dist' or die "Can't chdir to build dir: $!"; -for my $m (@modules) { - my $git_url = $m; +sub fetch_project { + my $git_url = shift; $git_url =~ s/^http/git/; $git_url .= '.git'; my $return = system 'git', 'clone', $git_url; @@ -40,14 +45,28 @@ for my $m (@modules) { } next; } + } +for my $m (@bootrap) { + fetch_project($m); +} +mkdir 'proto/cache'; +chdir 'proto/cache'; +for my $m (@modules) { + fetch_project($m); +} +chdir '../..'; + # for projects of which we want to ship specific tags or branches # the right-hand side can be anything that 'git checkout' accepts, # so a branch name, tag name, sha1 sum, HEAD~3 ( not quite sane, # but possible ) # -my %tags = ( rakudo => '2010.07' ); +my %tags = ( + rakudo => '2010.07', + proto => 'pls_rstar_hacks', +); while (my ($project, $version) = each %tags) { chdir $project; |