[Help-smalltalk] Exception in the socket code

[Holger Hans Peter Freyther]

Hi Paolo,

from time to time I get the below exception. I fail to properly reproduce it
with a standalone test case though.

FileDescriptor)>>nextAvailable:into:startingAt:
...
        self isOpen ifFalse: [^available].

^^^ just checks if the fd is >= 0

        count := self
                    fileOp: 3
                    with: aCollection
                    with: position + available
                    with: (position + n - 1 min: aCollection size).

^^^ okay an error happened here that will not throw an exception and the
default fileOp:with:with:with will return nil. So maybe we should add an
ifFail: [0] to it?

        count := count + available.


Exception

Object: nil error: did not understand #+
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
UndefinedObject(Object)>>doesNotUnderstand: #+ (SysExcept.st:1407)
Sockets.TCPSocketImpl(FileDescriptor)>>nextAvailable:into:startingAt:
(FileDescr.st:802)
optimized [] in Sockets.StreamSocket>>newReadBuffer:
(Sockets.star#VFS.ZipFile/Sockets.st:1323)
Sockets.ReadBuffer>>atEnd (Sockets.star#VFS.ZipFile/Buffers.st:129)
Sockets.StreamSocket>>peek (Sockets.star#VFS.ZipFile/Sockets.st:1267)
Sockets.StreamSocket>>atEnd (Sockets.star#VFS.ZipFile/Sockets.st:1152)
Sockets.StreamSocket(Stream)>>nextLine (Stream.st:215)