class: ExternalStream
changed: #openError:
fix FileDoesNotExistException generation
--- a/ExternalStream.st Tue Jul 09 00:17:30 2013 +0200
+++ b/ExternalStream.st Tue Jul 09 00:33:56 2013 +0200
@@ -2456,9 +2456,10 @@
"{ Pragma: +optSpace }"
- |exClass|
-
- exClass := ((OperatingSystem errorSymbolForNumber:errorNumber) == #ERROR_FILE_NOT_FOUND)
+ |exClass errorSymbol|
+
+ errorSymbol := OperatingSystem errorSymbolForNumber:errorNumber.
+ exClass := (errorSymbol == #ERROR_FILE_NOT_FOUND or:[errorSymbol == #ENOENT])
ifTrue:[ FileDoesNotExistException ]
ifFalse:[ OpenError ].
@@ -5761,11 +5762,11 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.369 2013-07-08 22:17:30 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.370 2013-07-08 22:33:56 stefan Exp $'
! !