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 /lib | |
| 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
Diffstat (limited to 'lib')
| -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; |