standardize code for rejecting wrong files

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?