31d5aaeaf1
a distributed rebuild would be justified git-svn-id: svn://svn.rockbox.org/rockbox/trunk@12790 a1c6a512-1295-4272-9138-f99709370657
15 lines
321 B
Perl
Executable file
15 lines
321 B
Perl
Executable file
#!/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);
|