diff options
author | Guillaume Rousse <guillomovitch@mandriva.org> | 2008-02-10 14:11:25 +0000 |
---|---|---|
committer | Guillaume Rousse <guillomovitch@mandriva.org> | 2008-02-10 14:11:25 +0000 |
commit | 2336ed0ee0e4410c7adfc10159de94dc1a29aa58 (patch) | |
tree | ec1abb5b0a201c1d34b9d19a760e132fd3cb3a7e | |
parent | 845b81230df49ba65bd97d62fefc844f921a06bd (diff) | |
download | spec-helper-2336ed0ee0e4410c7adfc10159de94dc1a29aa58.tar spec-helper-2336ed0ee0e4410c7adfc10159de94dc1a29aa58.tar.gz spec-helper-2336ed0ee0e4410c7adfc10159de94dc1a29aa58.tar.bz2 spec-helper-2336ed0ee0e4410c7adfc10159de94dc1a29aa58.tar.xz spec-helper-2336ed0ee0e4410c7adfc10159de94dc1a29aa58.zip |
no need to duplicate variable
-rwxr-xr-x | strip_files | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/strip_files b/strip_files index 50a57ef..37c525d 100755 --- a/strip_files +++ b/strip_files @@ -33,13 +33,11 @@ sub testfile() { # skip excluded files return if $File::Find::name =~ $exclude_pattern; - my $fn = "$File::Find::dir/$_"; - # Does its filename look like a shared library? if (m/\.so/) { # Ok, do the expensive test. if (expensive_test($_) =~ m/ELF.*shared/) { - push @executables, $fn; + push @executables, $File::Find::name; return; } } @@ -49,14 +47,14 @@ sub testfile() { if ($mode & 0111) { # Ok, expensive test. if (expensive_test($_) =~ m/ELF.*executable/) { - push @executables, $fn; + push @executables, $File::Find::name; return; } } # Is it a static library, and not a debug library? if (m/lib.*\.a/ && ! m/_g\.a/) { - push @static_libs, $fn; + push @static_libs, $File::Find::name; return; } } |