--- a/ZipArchive.st Fri May 20 06:45:04 2016 +0200
+++ b/ZipArchive.st Tue May 31 06:46:06 2016 +0200
@@ -3339,7 +3339,9 @@
"initialize the archive to read from aPositionableStream"
file notNil ifTrue: [
- self closeFile.
+ file ~~ aPositionableStream ifTrue: [
+ self closeFile.
+ ].
].
mode := #read.
@@ -3992,7 +3994,6 @@
^ false.
! !
-
!ZipArchive methodsFor:'reading'!
extract:fileName
@@ -4102,7 +4103,6 @@
"Created: / 21-11-2010 / 11:51:41 / cg"
! !
-
!ZipArchive methodsFor:'reading - stream'!
extract:fileName intoStream: aWriteStream