Changeset 14101 in project for chicken


Ignore:
Timestamp:
04/06/09 17:30:35 (11 years ago)
Author:
Kon Lovett
Message:

Applied the fix for dangling open ports suggested by Matt Jones.

Location:
chicken
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/tcp.scm

    r13143 r14101  
    606606      (let ((err (get-socket-error s)))
    607607        (cond ((= err -1)
     608               (##net#close s)
    608609               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "getsockopt() failed - " strerror)))
    609610              ((> err 0)
     611               (##net#close s)
    610612               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "cannot create socket - " (general-strerror err))))))
    611613      (##net#io-ports s) ) ) )
  • chicken/trunk/tcp.scm

    r13300 r14101  
    596596            (fail) ) )
    597597      (let ((err (get-socket-error s)))
    598         (cond ((= err -1)
     598        (cond ((= err -1)
     599               (##net#close s)
    599600               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "getsockopt() failed - " strerror)))
    600               ((> err 0)
     601              ((> err 0)
     602               (##net#close s)
    601603               (##sys#signal-hook #:network-error 'tcp-connect (##sys#string-append "cannot create socket - " (general-strerror err))))))
    602604      (##net#io-ports s) ) ) )
Note: See TracChangeset for help on using the changeset viewer.