Ticket Change Details
Overview

Artifact ID: 03216995551b9e55caba346b4e543d1fca6780831a5a8f4fb34972bde06c3200
Ticket: 04c5fb844986b09a28ae849e0abb12d7270f1f93
tls::status -local does not work anymore
User & Date: anonymous on 2026-05-04 11:04:53
Changes

  1. foundin changed to: "2.0"
  2. icomment:
    ```
    tls::status sock558d240d7860
    success 'peername {} sbits 256 cipher ECDHE-RSA-CHACHA20-POLY1305 verifyResult ok verifyMode {} verifyDepth -1 alpn {} protocol TLSv1.2 signatureHashAlgorithm undefined signatureType undefined'
    
    tls::status -local sock558d240d7860
    error 'wrong # args: should be "tls::status ?-local? channel"': wrong # args: should be "tls::status ?-local? channel"
    wrong # args: should be "tls::status ?-local? channel"
        while executing
    "tls::status -local sock558d240d7860"
        invoked from within
    "catch $line error"
    ```
    
    The issue seems to be a wrongly placed ! for strcmp in StatusObjCmd():
    ```c
        if (objc < 2 || objc > 3 || (objc == 3 && !strcmp(Tcl_GetString(objv[1]), "-local"))) {
            Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
            return TCL_ERROR;
        }
    ```
    
    when it should be
    
    ```
        if (objc < 2 || objc > 3 || (objc == 3 && strcmp(Tcl_GetString(objv[1]), "-local"))) {
            Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
            return TCL_ERROR;
        }
    ```
    
  3. login: "anonymous"
  4. mimetype: "text/x-markdown"
  5. severity changed to: "Important"
  6. status changed to: "Open"
  7. title changed to: "tls::status -local does not work anymore"
  8. type changed to: "Code Defect"