1
1

Improve the script to ignore executables and Mac-specific files of no interest

This commit was SVN r30690.
Этот коммит содержится в:
Ralph Castain 2014-02-11 22:53:14 +00:00
родитель 1565816988
Коммит 39dcbbe883

Просмотреть файл

@ -43,7 +43,7 @@ sub construct {
# "special" directories
if ( -l $_ ) { return; }
if ( -d $_ ) {
if ((/\.svn/) || (/\.deps/) || (/\.libs/) || (/\.hg/) || (/\.git/) || ($_ eq "autom4te.cache") || ($_ eq "libltdl")) {
if ((/\.svn/) || (/\.deps/) || (/\.libs/) || (/\.hg/) || (/\.git/) || (/\.dSYM/) || ($_ eq "autom4te.cache") || ($_ eq "libltdl")) {
$File::Find::prune = true;
}
return;
@ -54,7 +54,7 @@ sub construct {
# to the processed directory, so we want to add the full pathname.
# ignore some obvious files we don't care about
if (($_ =~ /\.dirstamp$/i) || ($_ =~ /\.lo$/i) || ($_ =~ /\.la$/i) || ($_ =~ /\.o$/i) || ($_ =~ /\.\d$/i)) {
if (($_ =~ /\.dirstamp$/i) || ($_ =~ /\.DS_Store$/i) || ($_ =~ /\.lo$/i) || ($_ =~ /\.la$/i) || ($_ =~ /\.o$/i) || ($_ =~ /\.\d$/i)) {
$File::Find::prune = true;
return;
}
@ -62,6 +62,11 @@ sub construct {
$File::Find::prune = true;
return;
}
# ignore executables
if (-x $File::Find::name) {
$File::Find::prune = true;
return;
}
if ($flag == 0) {
push(@src_tree, $File::Find::name);