Check-in [cff5cb8be8]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Fix variable error in error message for a response without the announced xml node
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: cff5cb8be8dc310d534d7524bfb6163763c74cfe982b85101a27ff54b72659e7
User & Date: oehhar 2019-11-26 18:36:21
Context
2019-12-03 19:39
Release 2.6.3 preparation. Update version of only changed package "ClientSide" to release version 2.6.3. Leaf check-in: 690ad6e282 user: oehhar tags: trunk, Relelase_2.6.3
2019-11-26 18:36
Fix variable error in error message for a response without the announced xml node check-in: cff5cb8be8 user: oehhar tags: trunk
2019-11-20 18:44
Rework client async callback to log an error on call failures. Allow empty argument to disable functionality. check-in: 69e06af316 user: oehhar tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
    }
    ##
    ## Exit if there is no such node
    ##
    if {![info exists rootName]} {
        return \
            -code error \
            -errorcode [list WS CLIENT BADREPLY [list $rootName $expectedMsgTypeBase]] \
            "Bad reply type, received '$rootName'; but expected '$expectedMsgTypeBase'."
    }

    ##
    ## See if it is a standard error packet
    ##
    if {$rootName eq {Fault}} {
        set faultcode {}






|
|







2277
2278
2279
2280
2281
2282
2283
2284
2285
2286
2287
2288
2289
2290
2291
2292
    }
    ##
    ## Exit if there is no such node
    ##
    if {![info exists rootName]} {
        return \
            -code error \
            -errorcode [list WS CLIENT BADREPLY [list $rootNameCur $expectedMsgTypeBase]] \
            "Bad reply type, received '$rootNameCur'; but expected '$expectedMsgTypeBase'."
    }

    ##
    ## See if it is a standard error packet
    ##
    if {$rootName eq {Fault}} {
        set faultcode {}