FillDirFiles: Respect the DoNotRecurse argument

This is used by Chmod worker for example.

1 files changed, 1 insertions, 1 deletions

diff --git a/UCore.pas b/UCore.pas
index 7f4f8b6..79fcd32 100644
--- a/UCore.pas
+++ b/UCore.pas
@@ -479,7 +479,7 @@ begin
       //  It's a directory, mark as starting item
       DirStage1List.Add(root);
       //  Recurse to child
-      FillDirFiles_Recurse(InputFiles[i], 2);
+      if not DoNotRecurse then FillDirFiles_Recurse(InputFiles[i], 2);
       //  Add ending item
       root := GetFileInfoSL(Engine, InputFiles[i]);
       root^.Stage1 := False;