aboutsummaryrefslogtreecommitdiffstats
path: root/strip_files
diff options
context:
space:
mode:
Diffstat (limited to 'strip_files')
-rwxr-xr-xstrip_files12
1 files changed, 5 insertions, 7 deletions
diff --git a/strip_files b/strip_files
index 1178ad2..e681923 100755
--- a/strip_files
+++ b/strip_files
@@ -16,7 +16,7 @@ use File::Find;
# for use by File::Find. It'll fill the following 3 arrays with anything
# it finds:
my (@shared_libs, @executables, @static_libs);
-my $exclude_files=defined($ENV{EXCLUDE_FROM_STRIP}) ? split(' ',$ENV{EXCLUDE_FROM_STRIP}) : undef;
+my @exclude_files = split(' ',$ENV{EXCLUDE_FROM_STRIP});
sub testfile {
@@ -24,12 +24,10 @@ sub testfile {
$fn="$File::Find::dir/$_";
- if ($exclude_files) {
- # See if we were asked to exclude this file.
- # Note that we have to test on the full filename, including directory.
- foreach my $f ($exclude_files) {
- return if ($fn=~m/\Q$f\E/);
- }
+ # See if we were asked to exclude this file.
+ # Note that we have to test on the full filename, including directory.
+ foreach my $f (@exclude_files) {
+ return if ($fn=~m/\Q$f\E/);
}
# Does its filename look like a shared library?