diff options
author | Daniel Stenberg <daniel@haxx.se> | 2007-03-15 22:31:32 +0000 |
---|---|---|
committer | Daniel Stenberg <daniel@haxx.se> | 2007-03-15 22:31:32 +0000 |
commit | 31d5aaeaf168da347236328bf67ff8fe6bec391b (patch) | |
tree | 19e65b1f82f42568b4c91374eb2fef20097e3f9a /tools | |
parent | 037958836115986a4694083f3463fa089ac59b33 (diff) | |
download | rockbox-31d5aaeaf168da347236328bf67ff8fe6bec391b.tar.gz rockbox-31d5aaeaf168da347236328bf67ff8fe6bec391b.zip |
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
Diffstat (limited to 'tools')
-rwxr-xr-x | tools/svnupcheck.pl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tools/svnupcheck.pl b/tools/svnupcheck.pl new file mode 100755 index 0000000000..723305bbce --- /dev/null +++ b/tools/svnupcheck.pl @@ -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); |