変更のあったモジュールの compile が通るか調べたい

Perl

http://d.hatena.ne.jp/tokuhirom/20060816/1155709160



#! /usr/bin/perl

use strict;

use warnings;

use IPC::Run qw(run timeout);
my $SVN_STAT = 'svn stat';
for my $line (`$SVN_STAT`) {

    if ($line =~ m/(.+\.p[lm])/) {

        next if $line =~ /$0/;

        $line =~ s/(.+)\s+(.+)\n/$2/g;

        run(['perl', '-wc', $line], \my $in, \my $out, \my $err, timeout(10));

        print "+++++++++++++++ $line\n";

        print $err;

        print "\n\n";

    }
}

svnのHookつかいたかったけど、別鯖からのciとかだとだめかね。
なのでciする前に実行してちょ。
svn のステータスによってチェックしなくてもいいかも。Dとか。