diff options
author | Oliver Tappe | 2008-02-14 20:13:37 +0100 |
---|---|---|
committer | Oliver Tappe | 2008-02-14 20:13:37 +0100 |
commit | 5ccc2ca5a5033c48deed00c4b3a3f0d2eaf9f44c (patch) | |
tree | 26859157a25650cf846e48d5a7c54e394a8a4f6e | |
parent | * actually activated the removal of a plugin in OSPlugin engine (diff) | |
download | core-5ccc2ca5a5033c48deed00c4b3a3f0d2eaf9f44c.tar.gz core-5ccc2ca5a5033c48deed00c4b3a3f0d2eaf9f44c.tar.xz core-5ccc2ca5a5033c48deed00c4b3a3f0d2eaf9f44c.zip |
* 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
-rw-r--r-- | lib/OpenSLX/Utils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |