class: ExternalStream
authorStefan Vogel <sv@exept.de>
Tue, 09 Jul 2013 00:33:56 +0200
changeset 15494 353aa0894d7d
parent 15493 1b8acec57959
child 15495 e8be1358e39b
class: ExternalStream changed: #openError: fix FileDoesNotExistException generation
ExternalStream.st
--- 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 $'
 ! !