From a5e24441dad0670cee552693e704dc9515dbb86b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 4 Aug 2013 18:19:08 +0000
Subject: [PATCH] codetools: runtool: check workingdir

git-svn-id: trunk@42331 -
---
 components/codetools/definetemplates.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index be362ef28b..78d5eaaee2 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -1228,7 +1228,11 @@ var
   OutLen: Integer;
   LineStart, i: Integer;
 begin
-  if not FileIsExecutable(Filename) then exit(nil);
+  Result:=nil;
+  if not FileIsExecutable(Filename) then
+    exit(nil);
+  if (WorkingDirectory<>'') and not DirPathExists(WorkingDirectory) then
+    exit(nil);
   Result:=TStringList.Create;
   try
     buf:='';