SVN: toys/tools/cleanbuild/findbr

[sparky]

Author: sparky
Date: Fri Jun  4 00:39:02 2010
New Revision: 11503

Modified:
   toys/tools/cleanbuild/findbr
Log:
- don't look for svnversion command


Modified: toys/tools/cleanbuild/findbr
==============================================================================
--- toys/tools/cleanbuild/findbr	(original)
+++ toys/tools/cleanbuild/findbr	Fri Jun  4 00:39:02 2010
@@ -44,6 +44,10 @@
 	"Mesa-libGLU-devel" => "OpenGL-GLU-devel",
 );
 
+my @skip = qw(hostname git svn svnversion);
+my %skip;
+ at skip{ @skip } = (1) x scalar @skip;
+
 # for m4 in *.m4; do R=$(rpm -qf $m4); R=${R%-*-*}; \
 #   awk -vr=$R '/^\s*(AC_DEFUN|AU_ALIAS)/ { gsub(/\].*/,""); gsub(/.*\[/,""); print r " " $0}' $m4; \
 # done | sort | awk '{print "\t\"" $2 "\" => \"" $1 "\","}'
@@ -221,9 +225,7 @@
 			or m{Can't exec "(\S+)": No such file or directory} ) {
 		my $exec = $1;
 		$exec = $1 if $exec =~ m{^"(.*)"$};
-		next if $exec eq "hostname";
-		next if $exec eq "git";
-		next if $exec eq "svn";
+		next if $skip{ $exec };
 		warn "Looking for executable $exec\n";
 		if ( $exec =~ m#^/# ) {
 			poldek_file( $exec );
@@ -468,7 +470,7 @@
 	if ( m{^configure:\d+: checking for (?:"(\S+)"|(\S+))$} ) {
 		my $exec = $1 || $2;
 		if ( @lines and $lines[0] =~ m{^configure:\d+: result: no$} ) {
-			next if $exec eq "hostname";
+			next if $skip{ $exec };
 			warn "Looking for executable $exec\n";
 			poldek_file( $exec ) if $exec =~ m#^/#;
 			poldek_file( "/usr/bin/$exec", "/bin/$exec" );