diff options
Diffstat (limited to 'strip_files')
-rwxr-xr-x | strip_files | 9 |
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? |