Changeset 7631 for branches/working-0710


Ignore:
Timestamp:
Nov 11, 2007, 4:02:24 AM (12 years ago)
Author:
palter
Message:

Protect against interfaces with no address (from VPNs)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-1/l1-sockets.lisp

    r7602 r7631  
    14581458                ((%null-ptr-p q) (nreverse res))
    14591459             (let* ((addr (pref q :ifaddrs.ifa_addr)))
    1460                (when (eql (pref addr :sockaddr.sa_family) #$AF_INET)
     1460               (when (and (not (%null-ptr-p addr))
     1461                          (eql (pref addr :sockaddr.sa_family) #$AF_INET))
    14611462                 (push (make-ip-interface
    14621463                                   :name (%get-cstring (pref q :ifaddrs.ifa_name))
Note: See TracChangeset for help on using the changeset viewer.