--- a/ZipArchive.st Mon Feb 02 15:35:38 2009 +0100
+++ b/ZipArchive.st Wed Feb 04 12:03:22 2009 +0100
@@ -2966,7 +2966,7 @@
ZipFileFormatErrorSignal nameClass:self message:#zipFileFormatErrorSignal.
ZipFileFormatErrorSignal notifierString:'unrecognized/bad zip file format'.
- UnsupportedZipFileFormatErrorSignal := Error newSignalMayProceed:true.
+ UnsupportedZipFileFormatErrorSignal := ZipFileFormatErrorSignal newSignal.
UnsupportedZipFileFormatErrorSignal nameClass:self message:#unsupportedZipFileFormatErrorSignal.
UnsupportedZipFileFormatErrorSignal notifierString:'unsupported zip file format'.
].
@@ -3794,7 +3794,10 @@
and:[file next == 8r006]]]) ifTrue:[
^ true
].
- file position <= searchEndPos ifTrue: [
+ file position0Based <= searchEndPos ifTrue: [
+ ^ false.
+ ].
+ pos0 == 0 ifTrue:[
^ false.
].
file position0Based: (pos0 := pos0 - 1).
@@ -4671,7 +4674,7 @@
!ZipArchive class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.72 2009-01-14 11:38:57 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/ZipArchive.st,v 1.73 2009-02-04 11:03:22 stefan Exp $'
! !
ZipArchive initialize!