Fetching contributors…
Cannot retrieve contributors at this time
executable file 50 lines (39 sloc) 1.48 KB
use strict;
use FindBin qw($Bin);
my %branch = (
'1.2.x' => "",
'1.1.x' => "",
foreach my $b (keys %branch) {
chdir $Bin or die;
my $url = $branch{$b};
my $out = `svn info $b`;
unless ($out =~ /^URL: (.+)/m && $1 eq $url) {
system("rm -rf $b");
system("svn", "co", $url, $b)
and die "Failed to checkout $url\n";
} else {
chdir "$Bin/$b" or die;
system("svn up") and die "Failed to svn up";
chdir "$Bin/$b" or die;
$out = `svn info .`;
my ($maxrev) = $out =~ /^Last Changed Rev: (\d+)/m
or die "No max rev?";
print "$b = $maxrev\n";
my $distfile = "memcached-$b-svn$maxrev.tar.gz";
next if -f $distfile && -s _;
open(my $fh, "") or die "no in $b?";
my $ac = do { local $/; <$fh>; };
$ac =~ s!AC_INIT\(memcached,.+?\)!AC_INIT(memcached, $b-svn$maxrev, brad\!
or die "Failed to replace";
open (my $fh, ">") or die "failed to write writeable: $!";
print $fh $ac;
close ($fh);
system("./") and die "Autogen failed. Missing autotools?";
system("./configure") and die "configure failed";
system("make dist") and die "make dist failed";
die "Failed to make dist $distfile." unless -s $distfile;