Changeset 15599


Ignore:
Timestamp:
Jan 20, 2013, 10:06:40 AM (6 years ago)
Author:
gb
Message:

Don't close the fd on error in %SOCKET-CONNECT; callers will try
to close it again in an UNWIND-PROTECT cleanup, and it may have
been reopened in another thread.

Fixes ticket:1050 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-sockets.lisp

    r15312 r15599  
    781781  (let* ((err (c_connect fd addr addrlen timeout-in-milliseconds)))
    782782    (declare (fixnum err))
    783     (unless (eql err 0) (fd-close fd) (socket-error nil "connect" err nil :sockaddr addr))))
     783    (unless (eql err 0) #||(fd-close fd)||# (socket-error nil "connect" err nil :sockaddr addr))))
    784784   
    785785(defun inet-connect (fd host-n port-n &optional timeout-in-milliseconds)
Note: See TracChangeset for help on using the changeset viewer.