Check-in [a487bd41ac]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Corrected logic of test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a487bd41acda6d7ca7d80a7b36af3cb67e8ddabd
User & Date: gerald 2014-01-13 23:25:37
Context
2014-04-01 01:17
Correct issue with cyclic includes and some simple type declarations. check-in: 342697b2e8 user: gerald tags: trunk
2014-01-13 23:25
Corrected logic of test. check-in: a487bd41ac user: gerald tags: trunk
2014-01-11 20:33
Correction to typo. check-in: 09d64d0da9 user: gerald tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

  1411   1411       }
  1412   1412       ::http::wait $token
  1413   1413   
  1414   1414       ##
  1415   1415       ## Check for errors
  1416   1416       ##
  1417   1417       set httpStatus [::http::status $token]
  1418         -    if {![string equal $httpStatus ok] && [::http::ncode $token] == 500} {
         1418  +    if {[string equal $httpStatus ok] && [::http::ncode $token] == 500} {
  1419   1419           set body [::http::data $token]
  1420   1420           ::log::log debug "\tReceived: $body"
  1421   1421           set outTransform [dict get $serviceInfo outTransform]
  1422   1422           if {![string equal $outTransform {}]} {
  1423   1423               SaveAndSetOptions $serviceName
  1424   1424               catch {set body [$outTransform $serviceName $operationName REPLY $body]}
  1425   1425               RestoreSavedOptions $serviceName