From 475d5b279433dbf5b755a0b52bbdce7e1ed49ab0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 2 Aug 2004 04:35:24 +0000
Subject: perl_checker cleanups

---
 strip_files | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

(limited to 'strip_files')

diff --git a/strip_files b/strip_files
index 0afe4d7..0898ce1 100755
--- a/strip_files
+++ b/strip_files
@@ -16,36 +16,35 @@ use File::Find;
 # for use by File::Find. It'll fill the following 3 arrays with anything
 # it finds:
 my (@shared_libs, @executables, @static_libs);
-my @exclude_files = (split(' ',$ENV{EXCLUDE_FROM_STRIP}),"/usr/lib/debug");
+my @exclude_files = (split(' ', $ENV{EXCLUDE_FROM_STRIP}), "/usr/lib/debug");
 
-sub testfile {
-
-    return if -l $_ or -d $_; # Skip directories and symlinks always.
-
-    $fn="$File::Find::dir/$_";
+sub testfile() {
+    local $_ = $_;
+    return if -l $_ || -d $_; # Skip directories and symlinks always.
+    my $fn = "$File::Find::dir/$_";
 
     # See if we were asked to exclude this file.
     # Note that we have to test on the full filename, including directory.
     foreach my $f (@exclude_files) {
-	return if ($fn=~m/\Q$f\E/);
+	return if $fn =~ m/\Q$f\E/;
     }
     
     # Does its filename look like a shared library?
     if (m/.*\.so.*?/) {
 	# Ok, do the expensive test.
 	my $type=`file $_`;
-	if ($type=~m/.*ELF.*shared/) {
+	if ($type =~ m/.*ELF.*shared/) {
 	    push @shared_libs, $fn;
 	    return;
 	}
     }
     
     # Is it executable? -x isn't good enough, so we need to use stat.
-    (undef,undef,$mode,undef)=stat(_);
+    my (undef, undef, $mode, undef) = stat(_);
     if ($mode & 0111) {
 	# Ok, expensive test.
 	my $type=`file $_`;
-	if ($type=~m/.*ELF.*executable/) {
+	if ($type =~ m/.*ELF.*executable/) {
 	    push @executables, $fn;
 	    return;
 	}
@@ -59,20 +58,20 @@ sub testfile {
 }
 
 ################################################################################
-$RPM_BUILD_ROOT=$ENV{RPM_BUILD_ROOT};
-chdir($RPM_BUILD_ROOT) || die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!";
+my $RPM_BUILD_ROOT = $ENV{RPM_BUILD_ROOT};
+chdir($RPM_BUILD_ROOT) or die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!";
 
-@shared_libs=@executables=@static_libs=();
-find(\&testfile,$RPM_BUILD_ROOT);
+@shared_libs = @executables = @static_libs = ();
+find(\&testfile, $RPM_BUILD_ROOT);
 
 foreach (@shared_libs) {
     # Note that all calls to strip on shared libs
     # *must* inclde the --strip-unneeded.
-    system("strip","--remove-section=.comment","--remove-section=.note","--strip-unneeded",$_);
+    system("strip", "--remove-section=.comment", "--remove-section=.note", "--strip-unneeded",$_);
 }
 
 foreach (@executables) {
-    system("strip","--remove-section=.comment","--remove-section=.note",$_);
+    system("strip", "--remove-section=.comment", "--remove-section=.note",$_);
 }
 
 # strip_files ends here
-- 
cgit v1.2.1