Tcl Library Source Code

Changes On Branch fix-dns-udp-ipv6-7554bfed30
Login

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

Changes In Branch fix-dns-udp-ipv6-7554bfed30 Excluding Merge-Ins

This is equivalent to a diff from 63590365a7 to 31f9e28d7c

2019-02-20
05:39
Test fixes in assorted modules - hook: Updated to match changes in 8.6+ core error stack results. - html: Undone bad removal of some trailing whitespace. - markdown: Fixed bad name of untabify2 function, and fixed result postprocessing in tests. - math::pca is Tcl 8.6+ - string::token::shell: Updated to match result variation starting with 8.6. check-in: e6742077ec user: aku tags: trunk
2019-01-05
19:28
Create new branch named "tkt-6e778502b8" check-in: 38995cc193 user: andrewm tags: tkt-6e778502b8
2018-12-31
05:19
Experimental fix to [7554bfed30] Leaf check-in: 31f9e28d7c user: rkeene tags: fix-dns-udp-ipv6-7554bfed30
03:51
Added lazyset module check-in: 6dba867add user: rkeene tags: add-lazyset
2018-12-15
00:08
Create new branch named "tkt-fdf6afed94" check-in: 0d40e3ac79 user: andrewm tags: tkt-fdf6afed94
2018-12-08
20:05
Bringing Trunk up to date with all of the hypnotoad branch changes since the split from the pooryorick branch. check-in: 6ff9027a29 user: hypnotoad tags: hypnotoad
18:18
Pulling a commit to uuid that was missed check-in: 63590365a7 user: hypnotoad tags: trunk
18:12
Fixes to restrict Markdown to just the parts of textutil it is actually using. Fixes to httpd to map all project dependencies to the local fossil checkout on test check-in: 5fa1916707 user: hypnotoad tags: trunk

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]