From 2a3adce7d941b7a20c36475ee447bb4c46b2291c Mon Sep 17 00:00:00 2001
From: Ronny Otto <ron_github@gamezworld.de>
Date: Sat, 22 Jul 2023 07:35:43 +0200
Subject: [PATCH] [core.mod] Allow setting modified time of directories

---
 core.mod/core.bmx | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/core.mod/core.bmx b/core.mod/core.bmx
index edae8c3..cbd9eed 100644
--- a/core.mod/core.bmx
+++ b/core.mod/core.bmx
@@ -622,9 +622,10 @@ Type TWriteArchive Extends TArchive
 		If fileType = EArchiveFileType.File Then
 			entry.SetPermission(420) ' 0644
 			entry.SetSize(size)
-			If ftime Then
-				entry.SetModifiedTime(ftime)
-			End If
+		End If
+
+		If ftime Then
+			entry.SetModifiedTime(ftime)
 		End If
 
 		If Header(entry) <> ARCHIVE_OK Then