aboutsummaryrefslogtreecommitdiffstats
path: root/strip_files
diff options
context:
space:
mode:
Diffstat (limited to 'strip_files')
-rwxr-xr-xstrip_files9
1 files changed, 6 insertions, 3 deletions
diff --git a/strip_files b/strip_files
index 2a2a0a6..50a57ef 100755
--- a/strip_files
+++ b/strip_files
@@ -26,10 +26,13 @@ sub expensive_test {
}
sub testfile() {
- local $_ = $_;
- return if -l $_ || -d $_; # Skip directories and symlinks always.
- # reject excluded files
+ # skip symlinks
+ return if -l $_;
+ # skip directories
+ return if -d $_;
+ # skip excluded files
return if $File::Find::name =~ $exclude_pattern;
+
my $fn = "$File::Find::dir/$_";
# Does its filename look like a shared library?