pass the output from 'svn update' to this script, and it will say rebuild if

a distributed rebuild would be justified


git-svn-id: svn://svn.rockbox.org/rockbox/trunk@12790 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2007-03-15 22:31:32 +00:00
parent 0379588361
commit 31d5aaeaf1

15
tools/svnupcheck.pl Executable file
View file

@ -0,0 +1,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);