* 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

1 files changed, 5 insertions, 1 deletions

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