aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-05-06 16:05:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-05-06 16:05:13 +0000
commit5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa (patch)
tree277b28f247733042ce4ec581784c0a4a6e5fe877
parent8d2413e9dda1808dbb1fdd477fe3b4a1c6c43b58 (diff)
downloadspec-helper-5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa.tar
spec-helper-5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa.tar.gz
spec-helper-5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa.tar.bz2
spec-helper-5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa.tar.xz
spec-helper-5b808c8bfaf6e3f45fbbb4b040dd0b73ff24c4fa.zip
use a better function name
-rwxr-xr-xstrip_files4
1 files changed, 2 insertions, 2 deletions
diff --git a/strip_files b/strip_files
index 43ab258..2df2a8b 100755
--- a/strip_files
+++ b/strip_files
@@ -21,7 +21,7 @@ my $exclude_pattern = join('|',
$exclude_pattern = qr/$exclude_pattern/;
my (@shared_libs, @executables, @static_libs);
-find(\&testfile, $buildroot);
+find(\&keep_wanted, $buildroot);
system(
"strip",
@@ -38,7 +38,7 @@ sub expensive_test {
# Check if a file is an elf binary, shared library, or static library,
# for use by File::Find. It'll fill the following 3 arrays with anything
# it finds:
-sub testfile() {
+sub keep_wanted() {
# skip symlinks
return if -l $_;
# skip directories