From d5113273cf2cefd1db9942e4d743f455aa8f669a Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Tue, 10 Jul 2007 20:57:27 +0000
Subject: * more work towards perlcritic compliance, fixed the low-hanging
 fruit   for level 4

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1234 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 bin/slxldd | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'bin/slxldd')

diff --git a/bin/slxldd b/bin/slxldd
index d2553253..9458fd00 100755
--- a/bin/slxldd
+++ b/bin/slxldd
@@ -111,7 +111,7 @@ sub fetchLoaderConfigFile
 	while (<$ldconfFH>) {
 		chomp;
 		if (/^\s*include\s+(.+?)\s*$/i) {
-			foreach my $incFile (<$rootPath$1>) {
+			while (my $incFile = <$rootPath$1>) {
 				fetchLoaderConfigFile($incFile);
 			}
 			next;
@@ -124,6 +124,7 @@ sub fetchLoaderConfigFile
 	}
 	close $ldconfFH
 		or die(_tr("unable to close file '%s' (%s)", $ldConfFile, $!));
+	return;
 }
 
 sub fetchLoaderConfig
@@ -152,6 +153,7 @@ sub fetchLoaderConfig
 	{
 		push @libFolders, "$rootPath/usr/lib32";
 	}
+	return;
 }
 
 sub addLib
@@ -200,6 +202,7 @@ sub addLib
 		$libInfo{$lib} = $libPath;
 		push @filesToDo, $libPath;
 	}
+	return;
 }
 
 sub addLibsForBinary
@@ -273,6 +276,7 @@ sub addLibsForBinary
 			addLib($1, $bitwidth, $rpath);
 		}
 	}
+	return;
 }
 
 =head1 NAME
-- 
cgit v1.2.3-55-g7522