From 7a2720757469011de00c8bc36958fc072ccb0e16 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mandriva.org>
Date: Fri, 25 Sep 2009 20:53:01 +0000
Subject: fix indendation

---
 strip_and_check_elf_files | 34 +++++++++++++++++++---------------
 1 file changed, 19 insertions(+), 15 deletions(-)

diff --git a/strip_and_check_elf_files b/strip_and_check_elf_files
index 18a571f..4cc7e23 100755
--- a/strip_and_check_elf_files
+++ b/strip_and_check_elf_files
@@ -27,29 +27,29 @@ sub strip_files {
     my @to_strip = (@shared_libs, @executables);
 
     if ($ENV{EXCLUDE_FROM_STRIP}) {
-	my $exclude_pattern = join('|', split(/\s+/, $ENV{EXCLUDE_FROM_STRIP}));
-	my $compiled_pattern = qr/($exclude_pattern)/;
-	@to_strip = grep { !/$compiled_pattern/ } @to_strip;
+        my $exclude_pattern = join('|', split(/\s+/, $ENV{EXCLUDE_FROM_STRIP}));
+        my $compiled_pattern = qr/($exclude_pattern)/;
+        @to_strip = grep { !/$compiled_pattern/ } @to_strip;
     }
 
     system(
-	"strip",
-	"--remove-section=.comment",
-	"--remove-section=.note",
-	$_) foreach @to_strip;
+        "strip",
+        "--remove-section=.comment",
+        "--remove-section=.note",
+        $_) foreach @to_strip;
 }
 
 sub check_missing_or_unused_libs {
     foreach my $f (@shared_libs, @executables) {
-	my (undef, undef, @l) = `ldd -u -r $f 2>/dev/null`;
-	@l or next;
-	my $f_ = substr($f, length($buildroot));
-	print STDERR "Warning: unused libraries in $f_: ", join(' ', map { basename($_) } @l), "\n";
+        my (undef, undef, @l) = `ldd -u -r $f 2>/dev/null`;
+        @l or next;
+        my $f_ = substr($f, length($buildroot));
+        print STDERR "Warning: unused libraries in $f_: ", join(' ', map { basename($_) } @l), "\n";
     }
     foreach my $f (@shared_libs) {
-	my @l = `ldd -r $f 2>&1 >/dev/null` or next;
-	my $f_ = substr($f, length($buildroot));
-	print STDERR "Warning: undefined symbols in $f_: ", join(' ', map { /undefined symbol: (\S+)/ ? $1 : () } @l), "\n";
+        my @l = `ldd -r $f 2>&1 >/dev/null` or next;
+        my $f_ = substr($f, length($buildroot));
+        print STDERR "Warning: undefined symbols in $f_: ", join(' ', map { /undefined symbol: (\S+)/ ? $1 : () } @l), "\n";
     }
 }
 
@@ -95,4 +95,8 @@ sub keep_wanted() {
     }
 }
 
-sub basename { local $_ = shift; s|/*\s*$||; s|.*/||; $_ }
+sub basename {
+    local $_ = shift;
+    s|/*\s*$||; s|.*/||;
+    $_
+}
-- 
cgit v1.2.1