From 514ccae2310a716ec8d69fa7dbd30c16b8ac56fe Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 18 Nov 2008 19:45:34 +0000
Subject: [PATCH]   * use random name for tempbuilddir   * fix uninitialized
 needfpmkunitsource

git-svn-id: trunk@12160 -
---
 utils/fppkg/pkgfpmake.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/utils/fppkg/pkgfpmake.pp b/utils/fppkg/pkgfpmake.pp
index becab1861f..42cf1d46b3 100644
--- a/utils/fppkg/pkgfpmake.pp
+++ b/utils/fppkg/pkgfpmake.pp
@@ -5,7 +5,8 @@ unit pkgfpmake;
 interface
 
 uses
-  Classes, SysUtils,pkghandler;
+  Classes,SysUtils,DateUtils,
+  pkghandler;
 
 implementation
 
@@ -151,10 +152,9 @@ var
     OOptions:=OOptions+maybequoted(s);
   end;
 
-const
-  TempBuildDir = 'build-fpmake';
 Var
   i : Integer;
+  TempBuildDir,
   DepDir,
   FPMakeBin,
   FPMakeSrc : string;
@@ -163,8 +163,11 @@ Var
   P : TFPPackage;
 begin
   P:=AvailableRepository.PackageByName(PackageName);
+  NeedFPMKUnitSource:=false;
   OOptions:='';
   SetCurrentDir(PackageBuildPath(P));
+  // Generate random name for build path
+  TempBuildDir:='build_fpmake_'+HexStr(DateTimeToUnix(Now),8)+HexStr(GetProcessId,4);
   // Check for fpmake source
   FPMakeBin:='fpmake'+ExeExt;
   FPMakeSrc:='fpmake.pp';