Improve the script to ignore executables and Mac-specific files of no interest
This commit was SVN r30690.
Этот коммит содержится в:
родитель
1565816988
Коммит
39dcbbe883
@ -43,7 +43,7 @@ sub construct {
|
|||||||
# "special" directories
|
# "special" directories
|
||||||
if ( -l $_ ) { return; }
|
if ( -l $_ ) { return; }
|
||||||
if ( -d $_ ) {
|
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;
|
$File::Find::prune = true;
|
||||||
}
|
}
|
||||||
return;
|
return;
|
||||||
@ -54,7 +54,7 @@ sub construct {
|
|||||||
# to the processed directory, so we want to add the full pathname.
|
# to the processed directory, so we want to add the full pathname.
|
||||||
|
|
||||||
# ignore some obvious files we don't care about
|
# 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;
|
$File::Find::prune = true;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
@ -62,6 +62,11 @@ sub construct {
|
|||||||
$File::Find::prune = true;
|
$File::Find::prune = true;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
# ignore executables
|
||||||
|
if (-x $File::Find::name) {
|
||||||
|
$File::Find::prune = true;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
if ($flag == 0) {
|
if ($flag == 0) {
|
||||||
push(@src_tree, $File::Find::name);
|
push(@src_tree, $File::Find::name);
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user