From 5ccc2ca5a5033c48deed00c4b3a3f0d2eaf9f44c Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 14 Feb 2008 19:13:37 +0000
Subject: * fixed problem with respect to prefixing paths to absolute links

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1542 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 lib/OpenSLX/Utils.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/OpenSLX/Utils.pm b/lib/OpenSLX/Utils.pm
index d66cde19..22e2ebbc 100644
--- a/lib/OpenSLX/Utils.pm
+++ b/lib/OpenSLX/Utils.pm
@@ -183,8 +183,8 @@ sub followLink
 	my $target;
 	while (-l "$path") {
 		$target = readlink "$path";
-		if (substr($target, 1, 1) eq '/') {
-			$path = "$prefixedPath/$target";
+		if (substr($target, 0, 1) eq '/') {
+			$path = "$prefixedPath$target";
 		}
 		else {
 			$path = $prefixedPath . dirname($path) . '/' . $target;
-- 
cgit v1.2.3-55-g7522