From a0ce0340d0f95514008cfac751fe58748bbadd88 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 20 Mar 2008 00:04:16 +0000
Subject: * Switched indent used in Perl-code and settings files from tabs to 4
 spaces.   May need some manual corrections here and there, but should
 basically be ok.

git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1658 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 bin/slxldd | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'bin/slxldd')

diff --git a/bin/slxldd b/bin/slxldd
index f7aade3f..8f070461 100755
--- a/bin/slxldd
+++ b/bin/slxldd
@@ -11,7 +11,7 @@
 # General information about OpenSLX can be found at http://openslx.org/
 # -----------------------------------------------------------------------------
 # slxldd
-#	- OpenSLX-rewrite of ldd that works on multiple architectures.
+#    - OpenSLX-rewrite of ldd that works on multiple architectures.
 # -----------------------------------------------------------------------------
 use strict;
 use warnings;
@@ -38,41 +38,41 @@ use OpenSLX::Basics;
 use OpenSLX::LibScanner;
 
 my %option = (
-	rootPath => '/',
+    rootPath => '/',
 );
 GetOptions(
-	'help|?'      => \$option{helpReq},
-	'man'         => \$option{manReq},
-	'root-path=s' => \$option{rootPath},
-	'verbose'     => \$option{verbose},
-	'version'     => \$option{versionReq},
+    'help|?'      => \$option{helpReq},
+    'man'         => \$option{manReq},
+    'root-path=s' => \$option{rootPath},
+    'verbose'     => \$option{verbose},
+    'version'     => \$option{versionReq},
   )
   or pod2usage(2);
 pod2usage(-msg => $abstract, -verbose => 0, -exitval => 1) if $option{helpReq};
 pod2usage(-verbose => 2) if $option{manReq};
 if ($option{versionReq}) {
-	system('slxversion');
-	exit 1;
+    system('slxversion');
+    exit 1;
 }
 
 openslxInit();
 
 if (!$option{rootPath}) {
-	print STDERR _tr("You need to specify the root-path!\n");
-	pod2usage(2);
+    print STDERR _tr("You need to specify the root-path!\n");
+    pod2usage(2);
 }
 
 $option{rootPath} =~ s[/+$][];
 # remove trailing slashes
 
 if (!@ARGV) {
-	print STDERR _tr("You need to specify at least one file!\n");
-	pod2usage(2);
+    print STDERR _tr("You need to specify at least one file!\n");
+    pod2usage(2);
 }
 
 my $libScanner = OpenSLX::LibScanner->new({
-	'root-path' => $option{rootPath},
-	'verbose'   => $option{verbose},
+    'root-path' => $option{rootPath},
+    'verbose'   => $option{verbose},
 });
 
 my @libs = $libScanner->determineRequiredLibs(@ARGV);
-- 
cgit v1.2.3-55-g7522