update_and_build.pl

   1 #!/usr/bin/env perl
   2
   3 use Cwd;
   4 use strict;
   5 use warnings;
   6
   7 my $cwd = getcwd;
   8 my @repos;
   9
  10 for my $dir (<*/>) {
  11     push @repos, $dir if -e "$dir/.svn";
  12 }
  13
  14 for my $repo (@repos) {
  15     chdir $repo;
  16     print "git rebasing:  $repo\n";
  17     system("git pull --rebase origin");
  18     system("perl Build.PL");
  19     system("./Build installdeps");
  20     chdir $cwd;
  21 }
  22
  23 print "No svn repos found\n" unless @repos;
  24
  25 =head1 NAME
  26
  27 update_and_build.pl - update all subversion repos in the current directory and run installdeps
  28
  29 =head1 SYNOPSIS
  30
  31     update_and_build.pl
  32
  33   Options:
  34
  35     none yet
  36
  37 =head1 MAINTAINER
  38
  39 Jonathan "Duke" Leto
  40
  41 =head1 AUTHOR(S)
  42
  43 Jonathan "Duke" Leto <jonathan@leto.net>
  44
  45 =head1 COPYRIGHT & LICENSE
  46
  47 Copyright 2009 The Boyce Thompson Institute for Plant Research
  48
  49 This program is free software; you can redistribute it and/or modify
  50 it under the same terms as Perl itself.
  51
  52 =cut