David T. Lewis uploaded a new version of Compression to project The Trunk:
==================== Summary ====================
Time: 28 September 2017, 8:43:03.046216 pm
Instead of "Error: can't find EOCD position", say "Error: ZipArchive cannot find EOCD position in <name of the file or stream>"
=============== Diff against Compression-dtl.54 ===============
Item was changed:
----- Method: ZipArchive>>readFrom: (in category 'reading') -----
| stream name eocdPosition |
stream := aStreamOrFileName isStream
ifTrue: [name := aStreamOrFileName name. aStreamOrFileName]
ifFalse: [StandardFileStream readOnlyFileNamed: (name := aStreamOrFileName)].
eocdPosition := self class findEndOfCentralDirectoryFrom: stream.
+ eocdPosition <= 0 ifTrue: [self error: self class name, ' cannot find EOCD position in ', aStreamOrFileName name].
- eocdPosition <= 0 ifTrue: [self error: 'can''t find EOCD position'].
self readEndOfCentralDirectoryFrom: stream.
stream position: eocdPosition - centralDirectorySize.
self readMembersFrom: stream named: name!