From 6974fa8b0419bbd0711f79c8b78e07a9543810dd Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 1 Jul 2007 20:28:50 +0000
Subject: * activated 'use warnings' to all modules and adjusted all occurences
 of   'use of uninitialized values', a couple of which might still show up *
 adjusted all code with respect to passing perlcritic level 4 and 5

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

(limited to 'bin/slxldd')

diff --git a/bin/slxldd b/bin/slxldd
index a41fc81c..d2553253 100755
--- a/bin/slxldd
+++ b/bin/slxldd
@@ -14,6 +14,7 @@
 #	- OpenSLX-rewrite of ldd that works on multiple architectures.
 # -----------------------------------------------------------------------------
 use strict;
+use warnings;
 
 my $abstract = q[
 slxldd
@@ -25,14 +26,14 @@ slxldd
     required by a binary of the x86_64 target system.
 ];
 
-use File::Glob ':globally';
-use Getopt::Long;
-use Pod::Usage;
-
 # add the lib-folder to perl's search path for modules:
 use FindBin;
 use lib "$FindBin::RealBin/../lib";
 
+use File::Glob ':globally';
+use Getopt::Long;
+use Pod::Usage;
+
 use OpenSLX::Basics;
 
 my (
@@ -104,8 +105,10 @@ sub fetchLoaderConfigFile
 {
 	my $ldConfFile = shift;
 
-	open(LDCONF, "< $ldConfFile");
-	while (<LDCONF>) {
+	my $ldconfFH;
+	open($ldconfFH, '<', $ldConfFile)
+		or die(_tr("unable to open file '%s' (%s)", $ldConfFile, $!));
+	while (<$ldconfFH>) {
 		chomp;
 		if (/^\s*include\s+(.+?)\s*$/i) {
 			foreach my $incFile (<$rootPath$1>) {
@@ -119,7 +122,8 @@ sub fetchLoaderConfigFile
 			push @libFolders, "$rootPath$_";
 		}
 	}
-	close LDCONF;
+	close $ldconfFH
+		or die(_tr("unable to close file '%s' (%s)", $ldConfFile, $!));
 }
 
 sub fetchLoaderConfig
-- 
cgit v1.2.3-55-g7522