From 3b2019f3a16965a412eb9197f02567f9ff061a3d Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 18 Jul 2007 19:35:44 +0000
Subject: * tried to avoid a specific (but spurious) uninitialized value
 warning   that has been reported by Dirk * some cleanup with respect to regex
 matching

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

(limited to 'bin')

diff --git a/bin/slxldd b/bin/slxldd
index 9458fd00..b8732a44 100755
--- a/bin/slxldd
+++ b/bin/slxldd
@@ -110,13 +110,15 @@ sub fetchLoaderConfigFile
 		or die(_tr("unable to open file '%s' (%s)", $ldConfFile, $!));
 	while (<$ldconfFH>) {
 		chomp;
-		if (/^\s*include\s+(.+?)\s*$/i) {
-			while (my $incFile = <$rootPath$1>) {
-				fetchLoaderConfigFile($incFile);
+		if (m{^\s*include\s+(.+?)\s*$}i) {
+			while (my $incFile = glob("$rootPath$1")) {
+				if ($incFile) {
+					fetchLoaderConfigFile($incFile);
+				}
 			}
 			next;
 		}
-		if (/\S+/i) {
+		if (m{\S+}i) {
 			s[=.+][];
 			# remove any lib-type specifications (e.g. '=libc5')
 			push @libFolders, "$rootPath$_";
@@ -266,7 +268,7 @@ sub addLibsForBinary
 		}
 		# find out if rpath is set for binary:
 		my $rpath;
-		if ($res =~ m/Library\s*rpath:\s*\[([^\]]+)/im) {
+		if ($res =~ m{Library\s*rpath:\s*\[([^\]]+)}im) {
 			$rpath = $1;
 			if ($verbose) {
 				print STDERR _tr("\trpath='%s'\n", $rpath);
-- 
cgit v1.2.3-55-g7522