Speed up check_licenses by another 30% by scanning less files.

third_party/devscripts/licensecheck.pl

 #!/usr/bin/perl -w
 # This script was originally based on the script of the same name from
 # the KDE SDK (by dfaure@kde.org)
 #
 # This version is
 #   Copyright (C) 2007, 2008 Adam D. Barratt
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
@@ skipping 223 matching lines @@
 if ($opt_version) { version(); exit 0; }
 
 die "Usage: $progname [options] filelist\nRun $progname --help for more details\n" unless @ARGV;
 
 $opt_lines = $def_lines if not defined $opt_lines;
 
 my @files = ();
 my @find_args = ();
 my $files_count = @ARGV;
 
+push @find_args, qw(-not ( -path */LayoutTests/* -prune ) );
+push @find_args, qw(-not ( -path */out/Debug/* -prune ) );

[Evan Martin, 2011/09/22 20:54:12]

*/out/* is probably better.  (In theory gyp can generate other configurations,
like a profiling one, that will get its own directory here)

+push @find_args, qw(-not ( -path */out/Release/* -prune ) );
+push @find_args, qw(-not ( -path *.git* -prune ) );
+push @find_args, qw(-not ( -path *.svn* -prune ) );
+
 push @find_args, qw(-maxdepth 1) unless $opt_recursive;
 push @find_args, qw(-follow -type f -print);
 
 while (@ARGV) {
     my $file = shift @ARGV;
 
     if (-d $file) {
         open FIND, '-|', 'find', $file, @find_args
             or die "$progname: couldn't exec find: $!\n";
 
@@ skipping 261 matching lines @@
     return $license;
 }
 
 sub fatal($) {
     my ($pack,$file,$line);
     ($pack,$file,$line) = caller();
     (my $msg = "$progname: fatal error at line $line:\n@_\n") =~ tr/\0//d;
     $msg =~ s/\n\n$/\n/;
     die $msg;
 }