From 109abf3d99e7cfee21907f19661d1613dae3b2fa Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 5 Jun 2019 11:42:40 +0000
Subject: [PATCH] * Fix bug ID #35674, do not create filestream for directories

git-svn-id: trunk@42174 -
---
 packages/paszlib/src/zipper.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/packages/paszlib/src/zipper.pp b/packages/paszlib/src/zipper.pp
index 985204be04..10318eb612 100644
--- a/packages/paszlib/src/zipper.pp
+++ b/packages/paszlib/src/zipper.pp
@@ -2147,7 +2147,7 @@ Begin
   If Assigned(FOnCreateStream) then
     FOnCreateStream(Self, OutStream, Item);
   // If FOnCreateStream didn't create one, we create one now.
-  If (OutStream=Nil) then
+  If (OutStream=Nil) and (not Item.IsDirectory) then
     begin
     if (Path<>'') then
       ForceDirectories(Path);
@@ -2173,7 +2173,8 @@ Begin
     OutStream := nil;
   end
   else
-    FreeAndNil(OutStream);
+    if Assigned(OutStream) then
+      FreeAndNil(OutStream);
   DoEndOfFile;
 end;