paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 22:47:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #35674, do not create filestream for directories

Browse Source 
git-svn-id: trunk@42174 -
This commit is contained in:
michael 2019-06-05 11:42:40 +00:00
parent a4bf16e176
commit 109abf3d99
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/paszlib/src/zipper.pp
View File

@ -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;