Browse Source

* Use prefix again as base-path for examples and binaries (changed in r15919)

git-svn-id: trunk@15925 -
joost 15 years ago
parent
commit
349e5348f5
1 changed files with 5 additions and 5 deletions
  1. 5 5
      packages/fpmkunit/src/fpmkunit.pp

+ 5 - 5
packages/fpmkunit/src/fpmkunit.pp

@@ -2374,7 +2374,7 @@ begin
     Result:=FBinInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'bin'
+      Result:=Prefix+'bin'
     else
       Result:=BaseInstallDir+'bin';
 end;
@@ -2391,11 +2391,11 @@ end;
 
 function TCustomDefaults.GetDocInstallDir: String;
 begin
-  If (FBinInstallDir<>'') then
-    Result:=FBinInstallDir
+  If (FDocInstallDir<>'') then
+    Result:=FDocInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'share'+PathDelim+'doc'
+      Result:=Prefix+'share'+PathDelim+'doc'
     else
       Result:=BaseInstallDir+'docs';
 end;
@@ -2407,7 +2407,7 @@ begin
     Result:=FExamplesInstallDir
   else
     If UnixPaths then
-      Result:=BaseInstallDir+'share'+PathDelim+'doc'
+      Result:=Prefix+'share'+PathDelim+'doc'
     else
       Result:=BaseInstallDir+'examples';
 end;