Update search_compare script
Этот коммит содержится в:
родитель
60cabb07cf
Коммит
67769d4a59
@ -10,7 +10,7 @@
|
|||||||
# University of Stuttgart. All rights reserved.
|
# University of Stuttgart. All rights reserved.
|
||||||
# Copyright (c) 2004-2005 The Regents of the University of California.
|
# Copyright (c) 2004-2005 The Regents of the University of California.
|
||||||
# All rights reserved.
|
# All rights reserved.
|
||||||
# Copyright (c) 2013 Intel, Inc. All rights reserved.
|
# Copyright (c) 2013-2015 Intel, Inc. All rights reserved.
|
||||||
# $COPYRIGHT$
|
# $COPYRIGHT$
|
||||||
#
|
#
|
||||||
# Additional copyrights may follow
|
# Additional copyrights may follow
|
||||||
@ -42,7 +42,7 @@ my $repo_type;
|
|||||||
my $cmd;
|
my $cmd;
|
||||||
|
|
||||||
sub construct {
|
sub construct {
|
||||||
# don't process directories or links, and dont' recurse down
|
# don't process directories or links, and don't recurse down
|
||||||
# "special" directories
|
# "special" directories
|
||||||
if ( -l $_ ) { return; }
|
if ( -l $_ ) { return; }
|
||||||
if ( -d $_ ) {
|
if ( -d $_ ) {
|
||||||
@ -61,7 +61,15 @@ sub construct {
|
|||||||
$File::Find::prune = true;
|
$File::Find::prune = true;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
if (($_ eq "Makefile") || ($_ eq "Makefile.in") || ($_ eq "config.log") || ($_ eq "config.status")) {
|
if (($_ =~ /\.pc$/i) || ($_ eq "config.h") || ($_ eq "opal_config.h") || ($_ eq "opalcc-wrapper-data.txt") || ($_ eq "opalc++-wrapper-data.txt")) {
|
||||||
|
$File::Find::prune = true;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (($_ eq "stamp-h$")) {
|
||||||
|
$File::Find::prune = true;
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (($_ eq "Makefile") || ($_ eq "Makefile.in") || ($_ eq "config.log") || ($_ eq "config.status") || ($_ eq "static-components.h")) {
|
||||||
$File::Find::prune = true;
|
$File::Find::prune = true;
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user