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;
+...@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" );
_______________________________________________
pld-cvs-commit mailing list
pld-cvs-commit@lists.pld-linux.org
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
