From 63039f5ab30dec04023c477f3f36ac68262e3294 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Wed, 28 Jul 2010 10:49:26 -0500
Subject: Remove obsolete build/download-stuff.pl, update makefiles with
 Test::Mock.

---
 build/download-stuff.pl | 83 -------------------------------------------------
 1 file changed, 83 deletions(-)
 delete mode 100644 build/download-stuff.pl

(limited to 'build')

diff --git a/build/download-stuff.pl b/build/download-stuff.pl
deleted file mode 100644
index 1da82c6..0000000
--- a/build/download-stuff.pl
+++ /dev/null
@@ -1,83 +0,0 @@
-#!/usr/bin/perl
-use strict;
-use warnings;
-use 5.010;
-use File::Copy;
-use autodie qw(mkdir chdir open close copy);
-
-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/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
-    http://github.com/mathw/form
-    http://github.com/tadzik/perl6-Config-INI
-    http://github.com/tadzik/perl6-File-Find
-    http://github.com/tadzik/perl6-Term-ANSIColor
-    http://github.com/arnsholt/Algorithm-Viterbi
-    http://gitorious.org/http-daemon/mainline
-    http://github.com/jnthn/test-mock
-);
-
-mkdir 'dist' unless -e 'dist';
-
-chdir 'dist' or die "Can't chdir to build dir: $!";
-
-sub fetch_project {
-    my $git_url = shift;
-    $git_url =~ s/^http/git/;
-    $git_url .= '.git';
-    my $return = system 'git', 'clone', $git_url;
-    if ($return) {
-        if ($? == -1) {
-            warn "Error while running 'git clone $git_url': $?\n";
-        } else {
-            warn "Git returned unsuccessfully with return code "
-                    . ($? >> 8) . "\n";
-        }
-        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  => 'master', # XXX replace by tag of Rakudo point release
-    proto   => 'pls_rstar_hacks',
-);
-
-while (my ($project, $version) = each %tags) {
-    chdir $project;
-    system('git', 'checkout', $version) == 0
-        or die "Can't git checkout $version: $?";
-    chdir '..';
-}
-
-chdir('..');
-
-copy('build/buildall.pl', 'dist/');
-# TODO: copy docs, build scripts, whatever
-#
-- 
cgit v1.1