From 845b81230df49ba65bd97d62fefc844f921a06bd Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mandriva.org>
Date: Sun, 10 Feb 2008 14:10:48 +0000
Subject: standardize code for rejecting wrong files

---
 strip_files | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'strip_files')

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?
-- 
cgit v1.2.1