From dcde33b7ef30ca59c29394cdcc3dae5a5494a416 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 29 Nov 2010 09:15:32 +0000
Subject: [PATCH] codetools: TFPCSourceCache.Update; do not scan if Directory
 empty

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

diff --git a/components/codetools/definetemplates.pas b/components/codetools/definetemplates.pas
index b6b40f82cf..8be7ebcad3 100644
--- a/components/codetools/definetemplates.pas
+++ b/components/codetools/definetemplates.pas
@@ -8133,7 +8133,10 @@ var
   NewFiles: TStringList;
 begin
   Valid:=false;
-  NewFiles:=GatherFilesInFPCSources(Directory,OnProgress);
+  if Directory<>'' then
+    NewFiles:=GatherFilesInFPCSources(Directory,OnProgress)
+  else
+    NewFiles:=TStringList.Create;
   Update(NewFiles);
 end;