tools/svnupcheck.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#!/usr/bin/perl

# feed this script the output from svn update and it will tell if a rebuild
# is needed/wanted
my $change;
while(<STDIN>) {
    if(/^([A-Z]+)  *(.*)/) {
        my ($w, $path) = ($1, $2);
        if($path !~ /^(rbutil|manual)/) {
            $change++;
        }
    }
}

print "rebuild!\n" if($change);