Commit | Line | Data |
7f42bc91 |
1 | #!perl -w |
2 | use strict; |
3 | use FindBin qw($Bin); |
4 | use autodie; |
5 | |
6 | my %dist = ( |
7 | 'HTTP-Engine' => q{git://github.com/http-engine/HTTP-Engine.git}, |
8 | 'Ark' => q{git://github.com/typester/ark-perl.git}, |
9 | ); |
10 | |
11 | my $distdir = 'externals'; |
12 | |
13 | chdir $Bin; |
14 | mkdir $distdir if not -e $distdir; |
15 | |
16 | $ENV{ANY_MOOSE} = 'Mouse'; |
17 | |
18 | while(my($name, $repo) = each %dist){ |
19 | chdir "$Bin/$distdir"; |
20 | |
21 | print "Go $name ($repo)\n"; |
22 | |
23 | if(!(-e "$name")){ |
24 | system "git clone $repo $name"; |
25 | chdir $name; |
26 | } |
27 | else{ |
28 | chdir $name; |
29 | system "git pull"; |
30 | } |
31 | |
32 | print "$^X Makefile.PL\n"; |
33 | system("$^X Makefile.PL") != 0 or next; |
34 | |
35 | print "make test\n"; |
36 | system "make test"; |
37 | } |