ZipArchive.st
changeset 4949 7ff1f5f60f2e
parent 4947 6a569254ef65
child 4950 4776fa17a3d0
--- a/ZipArchive.st	Wed May 22 03:26:32 2019 +0000
+++ b/ZipArchive.st	Wed May 22 12:23:21 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1998 by eXept Software AG
 	      All Rights Reserved
@@ -3439,13 +3437,16 @@
         aPositionableStream isDirectory ifTrue:[
             OpenError raiseWith:self errorString:(' - is a directory: "%1"' bindWith:archiveName).
         ].
+        aPositionableStream fileSize == 0 ifTrue:[
+            OpenError raiseWith:self errorString:(' - empty file: "%1"' bindWith:archiveName).
+        ].
     ] ifFalse:[
         archiveName := 'internal stream'.
     ].
     self readDirectory.
 
     "Modified: / 21-11-2010 / 11:45:53 / cg"
-    "Modified: / 21-05-2019 / 20:45:28 / Claus Gittinger"
+    "Modified: / 22-05-2019 / 12:19:06 / Claus Gittinger"
 !
 
 reopenForReading