From af25c37af9cd3fd62b70ef2f238cbb900dd480e3 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Wed, 23 Oct 2024 20:16:12 +0200
Subject: FillDirFiles: Respect the DoNotRecurse argument

This is used by Chmod worker for example.
---
 UCore.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
cgit v1.2.3