tools/svnupcheck.pl

   1 #!/usr/bin/perl
   2
   3 # feed this script the output from svn update and it will tell if a rebuild
   4 # is needed/wanted
   5 my $change;
   6 while(<STDIN>) {
   7     if(/^([A-Z]+)  *(.*)/) {
   8         my ($w, $path) = ($1, $2);
   9         if($path !~ /^(rbutil|manual)/) {
  10             $change++;
  11         }
  12     }
  13 }
  14
  15 print "rebuild!\n" if($change);