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
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]
            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]