Tcl Library Source Code

Check-in [31f9e28d7c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Experimental fix to [7554bfed30]
Timelines: family | ancestors | fix-dns-udp-ipv6-7554bfed30
Files: files | file ages | folders
SHA3-256:31f9e28d7c490954fc611c33265c2b37796a936bae21ab87975a682c0281ae54
User & Date: rkeene 2018-12-31 05:19:48
Context
2018-12-31
05:19
Experimental fix to [7554bfed30] Leaf check-in: 31f9e28d7c user: rkeene tags: fix-dns-udp-ipv6-7554bfed30
2018-12-08
18:18
Pulling a commit to uuid that was missed Leaf check-in: 63590365a7 user: hypnotoad tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to modules/dns/dns.tcl.

789
790
791
792
793
794
795



796

797
798
799
800
801
802
803
    
    if {[llength [package provide ceptcl]] > 0} {
        # using ceptcl
        set state(sock) [cep -type datagram $state(-nameserver) $state(-port)]
        fconfigure $state(sock) -blocking 0
    } else {
        # using tcludp



        set state(sock) [udp_open]

        udp_conf $state(sock) $state(-nameserver) $state(-port)
    }
    fconfigure $state(sock) -translation binary -buffering none
    set state(status) connect
    puts -nonewline $state(sock) $state(request)
    
    fileevent $state(sock) readable [list [namespace current]::UdpEvent $token]







>
>
>
|
>







789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
    
    if {[llength [package provide ceptcl]] > 0} {
        # using ceptcl
        set state(sock) [cep -type datagram $state(-nameserver) $state(-port)]
        fconfigure $state(sock) -blocking 0
    } else {
        # using tcludp
        if {[string match "*:*" $state(-nameserver)]} {
            set state(sock) [udp_open ipv6]
        } else {
            set state(sock) [udp_open]
        }
        udp_conf $state(sock) $state(-nameserver) $state(-port)
    }
    fconfigure $state(sock) -translation binary -buffering none
    set state(status) connect
    puts -nonewline $state(sock) $state(request)
    
    fileevent $state(sock) readable [list [namespace current]::UdpEvent $token]