patch aa141d8d814fb6fda062d68c9250359ca41438ec
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date:   Wed Jun  8 15:35:03 CEST 2016
  * Fix style and operators of some expressions
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff	2024-11-22 21:35:18.982913932 +0100
+++ new-idlebiff/idlebiff	2024-11-22 21:35:18.986913926 +0100
@@ -157,7 +157,7 @@
   upvar #0 argv arg argc argn
   variable ::shared::conf
 
-  if { $argn==1 } { set config $arg } else { set config "$::env(HOME)/.idlebiffrc" }
+  if { $argn == 1 } { set config $arg } else { set config "$::env(HOME)/.idlebiffrc" }
   set cf [ open $config ]
   while { [ gets $cf lin ] >= 0 } \
   {
@@ -410,7 +410,7 @@
   set linea [ read_line $con ]
   set prim [ string range $linea 0 0 ]
   if { $prim eq "+" } { set idle 1 } \
-  elseif { $idle==1 } { idle_cycle $con 1 } \
+  elseif { $idle == 1 } { idle_cycle $con 1 } \
   else { parse_unseen $linea }
 }
 
@@ -448,7 +448,7 @@
     recon $con
     return
   }
-  if { $r<1 && [ eof $con ] } \
+  if { $r < 1 && [ eof $con ] } \
   {
     recon $con
   } \
@@ -469,7 +469,7 @@
   variable ::static::ccsp
 
   array set ca $cert
-  if { $conf(tls_ca_subject)!="" && $type=="verify" && $ca(subject)==$ca(issuer) } \
+  if { $conf(tls_ca_subject) ne "" && $type eq "verify" && $ca(subject) eq $ca(issuer) } \
   {
     array set csu [ parse_cert_subject $ca(subject) ]
     if !$ccsp \
@@ -490,7 +490,7 @@
   if $conf(tls) \
   {
     set tlsv [ package require tls ]
-    if {"$tlsv">="1.6.4"} { set tls1x {-tls1.1 1 -tls1.2 1} } \
+    if { "$tlsv" >= "1.6.4" } { set tls1x {-tls1.1 1 -tls1.2 1} } \
     else { set tls1x {} }
     set sock "::tls::socket -ssl2 0 -ssl3 0 -tls1 1 $tls1x \
       -cafile   \"$conf(tls_ca_file)\" \