From f74132f80f76439bb1a97796ec8e7803f6bcf6c2 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 15 Sep 2008 12:35:27 +0000
Subject: [PATCH] LCL: CreateRelativePath not relative for complete paths

git-svn-id: trunk@16593 -
---
 lcl/include/fileutil.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/fileutil.inc b/lcl/include/fileutil.inc
index 018905515d..fdf49121b0 100644
--- a/lcl/include/fileutil.inc
+++ b/lcl/include/fileutil.inc
@@ -1266,7 +1266,7 @@ begin
     dec(BaseDirLen);
   if BaseDirLen=0 then exit;
 
-  // skip matching directories
+  // count shared directories
   MinLen:=FileNameLength;
   if MinLen>BaseDirLen then MinLen:=BaseDirLen;
   p:=1;
@@ -1281,6 +1281,7 @@ begin
   and ((p>FileNameLength) or (CmpFilename[p]=PathDelim)) then
     inc(DirCount);
   if DirCount=0 then exit;
+  if FilenameIsAbsolute(BaseDirectory) and (DirCount=1) then exit;
 
   // calculate needed up directories
   BaseDirLen:=length(BaseDirectory);